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3. 6. 8. 5.1  UNIT_C0NVERSI0NS  TLCSC  (CATALOG  #P579-0) 

This  part,  which  is  a  package  of  generic  packages,  provides  a  set  of  functions 
which  convert  data  objects  from  one  unit  of  measurement  to  another. 


3. 6. 8. 5. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R105. 


3. 6. 8. 5. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

Each  of  the  generic  packages  contained  in  this  part  requires  two  generic  formal 
types.  These  two  types  are  used  to  define  the  units  on  which  the  conversions 
are  to  take  place. 


3. 6. 8. 5. 1.3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 6. 8. 5. 1.4  LOCAL  ENTITIES 
None. 


3. 6. 8. 5. 1.5  INTERRUPTS 


None. 


3. 6. 8. 5. 1.6  TIMING  AND  SEQUENCING 

The  following  is  a  sample  usage  of  one  of  the  LLCSC's  contained  in 
this  part.  The  other  parts  would  be  used  in  a  similar  manner. 

with  Basic_Data_Types;  use  Basic_Data_Types; 
with  Unit_Conversions; 

package  BDT  renames  Basic_Data  Types; 
package  UConv  renames  Unit_Conversions; 

package  MF_Convert  is  new 

~UConv.Meters_and_Feet  (Meter;  =>  BDT. Meters, 

Feet  =>  BDT. Feet); 

XFeet  :  BDT. Feet; 

X  Meter  :  BDT. Meters; 


begin 
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X  Feet  :=  MF  Convert .Conversion  to  Feet(Input  =>  X_Meters); 


3. 6. 8. 5. 1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 8. 5. 1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part,  along  with  units 
each  part  deals  with.  Each  package  contains  one  function  which  goes  from  Type 
A  units  to  Type  B  units,  and  a  second  function  which  goes  from  Type  B  units  to 
Type  A  units.  Each  of  the  parts  listed  is  a  generic  package. 


|  Name 

|  Type  A 

1  Type  B  | 

j  Meters  and  Feet 

|  Meters 

|  Feet 

j  Meters  and  Feet 

j  Meters  per  Second 

j  Feet  per  Second 

|  per  Second 

|  Meters  and  Feet 

j  Meters  per 

|  Feet  per  Second  Squared 

j  per  Second  Squared 

j  Second  Squared 

|  Gees  and  Meters 

j  Gees 

Meters  per  Second 

j  per  Second  Squared 

1 

j  Squared 

j  Gees  and  Feet 

j  Gees 

|  Feet  per  Second  Squared 

j  per  Second  Squared 

j  Radians  and  Degrees 

|  Radians 

|  Degrees 

|  Radians  and  Degrees 

j  Radians  per  Second 

j  Degrees  per  Second 

j  per  Second 

j  Radians  and  Semicircles 

j  Radians 

j  Semicircles 

Radians  and  Semicircles 

j  Radians  per  Second 

j  Semicircles  per  Second 

j  per  Second 

j  Degrees  and  Semicircles 

j  Degrees 

j  Semicircles 

Degrees  and  Semicircles 

j  Degrees  per  Second 

j  Semicircles  per  Second 

1  per  Second 

j  Seconds  and  Minutes 

j  Seconds 

|  Minutes 

j  Centigrade  Ind 

j  Centigrade 

j  Fahrenheit 

j  Fahrenheit 

1 

1 

j  Centigrade  and  Kelvin 

|  Centigrade 

j  Kelvin 

j  Fahrenheit  and  Kelvin 

j  Fahrenheit 

j  Kelvin 

j  Kilograms  and  Pounds 

j  Kilograms 

j  Pounds 

j  Kilograms  per 

I  Kilograms  per 

I  Pounds  per  Foot  Squared 

Meter  Squared  and 

j  Meters  Squared 

j  Pounds  per  Foot 

: 

j  Squared 

1 

I 

The  following  table  summarizes  the  allocation  of  catalog  numbers  to  to  this 
part : 
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\  fo. 


1 

Part 

|  Catalog  # 

1 

1 

Meters  and  Feet 

|  P580-0 

1 

1 

Conversion  to  Feet 

|  P581-0 

1 

1 

Conversion  to  Meters 

|  P582-0 

1 

1 

Meters  and  Feet  per  Second 

|  P583-0 

1 

1 

Conversion  to  Feet  per  Second 

P584-0 

1 

1 

Conversion  to  Meters  per  Second 

P585-0 

1 

1 

Meters  and  Feet  per  Second  Squared 

P586-0 

1 

1 

Conversion  to  Feet  per  Second2 

(  P587-0 

1 

1 

Conversion  to  Meters  per  Second2 

i  P588-0 

1 

Gees  and  Meters  per  Second  Squared 

|  P589-0 

1 

1 

Conversion  to  Meters  per  Second2 

P590-0 

1 

1 

Conversion  to  Gees 

[  P591-0 

1 

1 

Gees  and  Feet  per  Second  Squared 

j  P592-0 

1 

1 

Conversion  to  Feet  per  Second2 

|  P593-0 

1 

1 

Conversion  to  Gees 

|  P594-0 

1 

1 

Radians  and  Degrees 

|  P595-0 

1 

1 

Conversion  to  Degrees 

|  P596-0 

1 

1 

Conversion  to  Radians 

|  P597-0 

1 

1 

Radians  and  Degrees  per  Second 

|  P598-0 

1 

1 

Conversion  to  Degrees  per  Second 

|  P599-0 

1 

Conversion  to  Radians  per  Second 

|  P600-0 

1 

1 

Radians  and  Semicircles 

|  P601-0 

1 

1 

Conversion  to  Semicircles 

|  P602-0 

1 

1 

Conversion  to  Radians 

|  P603-0 

1 

1 

Radians  and  Semicircles  per  Second 

|  P604-0 

1 

1 

Conversion  to  Semicircles  per  Second 

|  P605-0 

1 

1 

Conversion  to  Radians  per  Second 

|  P606-0 

1 

1 

Degrees  and  Semicircles 

|  P607-0 

1 

1 

Conversion  to  Semicircles 

|  P608-0 

1 

1 

Conversion  to  Degrees 

j  P609-0 

1 

1 

Degrees  and  Semicircles  per  Second 

|  P610-0 

1 

1 

Conversion  to  Semicircles  per  Second 

P611-0 

1 

1 

Conversion  to  Degrees  per  Second 

P612-0 

1 

Seconds  and  Minutes 

|  P613-0 

1 

1 

Conversion  to  Minutes 

P614-0 

1 

1 

Conversion  to  Seconds 

|  P615-0 

1 

1 

Centigrade  and  Fahrenheit 

|  P616-0 

1 

1 

Conversion  to  Fahrenheit 

j  P617-0 

1 

1 

Conversion  to  Centigrade 

|  P618-0 

1 

1 

Centigrade  and  Kelvin 

i  P619-0 

1 

1 

Conversion  to  Kelvin 

|  P620-0 

1 

1 

Conversion  to  Centigrade 

P621-0 

1 

1 

Fahrenheit  and  Kelvin 

|  P622-0 

i 

1 

Conversion  to  Kelvin 

1  P623-0 

1 

1 

Conversion  to  Fahrenheit 

!  P624-0 

1 

1 

Kilograms  and  Pounds 

j  P625-0 

1 

1 

Conversion  to  Pounds 

j  P626-0 

1 

1 

Conversion  to  Kilograms 

P627-0 

1 

Kilograms  per  Meter  Squared  and 

P628-0 

1 

Pounds  per  Foot  Squared 

1 

1 

1 

Conversion  to  Pounds  per  Foot2 

i  P629-0 

1 

1 

Conversion  to  Kilograms  per  Meter2 

|  P630-0 

1 
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3. 6. 8. 5. 1.9  PART  DESIGN 
None . 
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package  Uni  ^Conversions  is 


—  — packages  involving  Meiers  and  Feei- 


—  - Meiers  <  =  =  >  Feci - 

generic 

type  Meters  is  digits  <>; 
type  Feet  is  digits  <>; 
package  MetersAndFeet  is 

function  Conversion_To_Feet  (Input  :  Meters)  return  Feet; 
function  Conversion  To_Meters  (Input  :  Feet)  return  Meters; 
end  Meters_And_Feet; 

—  - Feel /Second  <  =  =  >  Metcrs/Sccond - 

generic 

type  Feet_Per_Second  is  digits  <>; 
type  Meters_Pir_Second  is  digits  <>; 
package  Meters_And_Feet_Per_Second  is 

f unc  t i on  Con ve  r s i on_To_Fee  t_Pe  r_Second 

(Input  :  MetersPerSecond)  return  FeetPerSecond; 

function  Convers i on_To_Me  ters_Per_Second 

(Input  T  Feet_Per_Second)  return  Meters_Per_Second; 

end  Meters_And_Feet_Per_Second; 

—  - Fee! /Second*  *2  <  =  =  >  Meters /Second**2 

generic 

type  FeetPerSecondSquared  is  digits  <>; 
type  Meters_Per_Second_Squared  is  digits  <>; 
package  Meters_And_Feet_Per_Second_Squared  is 

function  Convers ion_To_Feet_Per_Second2 

(Input  T  Meters_Per_Second_Squared)  return  Feet_Per_Second_Squared; 

function  Convers ion_To_Meters_Per_Second2 

(Input  T  Feet_Per_Second_Squared)  return  Meters_Per_Second_Squared; 

end  Meters_And  Feet  Per  Second_Squared; 


—  — packages  involving  Cees- 


- Gees  <  =  =  >  Meiers  /Second**  2 

generic 

type  Gees 


is  digits  <>; 


CAMP  Software  Top-Level  Design  Document 


Page  610 


type  Meters_Per_Second_Squared  is  digits  <>; 
package  Gees_And_Meters_Per_Second_Squared  is 

function  Conversion_To_Meters_Per_Second2 

(Input  :  Gees)  return  Meters_Per_Second_Squared ; 

function  Conversion_To_Gees 

(Input  :  Meters_Per_Second_Squared)  return  Gees; 

end  Gees  And  MetersPer  Second_Squared; 


Gees  <  =  =  >  Feel/Second** 2 - 


generic 

type  Gees  is  digits  <>; 

type  Feet_Per_Second_Squared  is  digits  <>; 
package  Gees_And_Feet_Per  Second_Squared  is 

function  Conversion_To_Feet_Per_Second2 

(Input  :  Gees)  return  Feet_Per_Second_Squared; 

function  Conversion_To_Gees 

(Input  :  Feet_Per_Second_Squared)  retu: 

end  Gees_And_Feet_Per_Sicond_Squared ; 


—  — packages  involving  Radians  and  Degrees- 


- Radians  <  -  =  >  Degrees - 

generic 

type  Radians  is  digits  <>; 
type  Degrees  is  digits  <>; 
package  Radians_And_Degrees  is 

function  Conversion_To_Degrees  (Input  :  Radians)  return  Degrees; 
function  Conversion_To_Radians  (Input  :  Degrees)  return  Radians; 
end  Radians_And_Degrees; 

- Radians /Second  <  =  =  >  Degrees/Second - 

generic 

type  Radians_Per_Second  is  digits  <>; 
type  Degrees_Per_Second  is  digits  <>; 
package  Radians_And_Degrees_Per_Second  is 

function  Conversion_To_Degrees_Per_Second 

(Input  :  Radians_Per_Second)  return  Degrees_Per_Second; 

function  Conversion_To_Radians_Per_Second 

(Input  :  Digrees_Per_Second)  return  Radians_Per_Second; 

end  Radians_And_Degrees_Per_Second ; 
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—  — packages  involving  Radians  and  Senncircles- 


- Radians  <  =  =  >  Semicircles - 

generic 

type  Radians  is  digits  <>; 
type  Semicircles  is  digits  <>; 
package  Radians_And_Semicircles  is 

function  Conversion_To_Semicircles  (Input  :  Radians)  return  Semicircles; 
function  Conversion_To_Radians  (Input  :  Semicircles)  return  Radians; 
end  Radians_And_Semicircles; 

- Radians/Second  <  =  =  >  Semicirclcs/Second - 

generic 

type  Radians_Per_Second  is  digits  <>; 
type  Semicircles_Per  Second  is  digits  <>; 
package  Radians_And_SemIcircles_Per_Second  is 

function  Conversion_To_Semicircles_Per  Second 

(Input  :  Radians_Per_Secon3)  return  Semicircles_Per_Second; 

function  Conversion_To_Radians_Per_Second 

(Input  7  Semicircles_Per_Second)  return  Radians_Per_Second;* 

end  Radians  And  Semicircles  Per  Second; 


—  — packages  involving  Degrees  and  Semicircles- 


- Degrees  <  =  =  >  Semicircles - 

generic 

type  Degrees  is  digits  <>; 
type  Semicircles  is  digits  <>; 
package  Degrees  And  Semicircles  is 

function  Conversion_To_Semicircles  (Input  :  Degrees)  return  Semicircles; 
function  Conversion_To_Degrees  (Input  :  Semicircles)  return  Degrees; 
end  Degrees_And  Semicircles;  • 

- Degrees/Second  <  =  =  >  Semicircles/Second . 

generic 

type  Degrees_Per_Second  is  digits  <>; 
type  Semicircles_Per  Second  is  digits  <>; 
package  Degrees_And_SemIcircles_Per_Second  is 
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function  Conversion_To  Semicircles_Per_Second 
(Input  :  Degrees_Per_Second) 
return  Semicircles_Per_Second; 

function  Con vers ion_To_Degrees_Per_Second 

(Input  :  Semicircles_Per_Second) 
return  Degrees_Per_Second ; 

end  Degrees_And_Semicircles_Per_Second ; 


—  —  packages  involving  Seconds  and  Minutes  - 


- Seconds  <  =  =  >  Minutes - 

generic 

type  Seconds  is  digits  <>; 
type  Minutes  is  digits  <>; 
package  Seconds_And_Minutes  is 

function  ConversionToMinutes  (Input  :  Seconds)  return  Minutes; 
function  Conversion_To_Seconds  (Input  s  Minutes)  return  Seconds; 
end  Seconds  And  Minutes; 


—  — packages  involving  Centigrade  and  Fahrenheit- 


- Centigrade  <  =  =  >  Fahrenheit - 

generic 

type  Centigrade  is  digits  <>; 
type  Fahrenheit  is  digits  <>; 
package  Centigrade_And_Fahrenheit  is 

function  Conversion_To_Fahrenheit 

(Input  :  Centigrade)  return  Fahrenheit; 

function  Conversion_To_Centigrade 

(Input  T  Fahrenheit)  return  Centigrade; 

end  Centigrade_And_Fahrenheit; 


—  — packages  involving  Centigrade  and  Kclvin- 


- Centigrade  <  =  =  >  Kelvin . _ 

generic 

type  Centigrade  is  digits  <>; 
type  Kelvin  is  digits  <>; 
package  Centigrade_And_Kelvin  is 
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function  ConversionToKelvin  (Input  :  Centigrade)  return  Kelvin; 
function  ConversionToCentigrade  (Input  :  Kelvin)  return  Centigrade; 
end  Centigrade_And_Kelvin; 

—  — packages  involving  Fahrenheit  and  Kelvin- 


- Fahrenheit  <  =  —  >  Kelvin - 

generic 

type  Fahrenheit  is  digits  <>; 
type  Kelvin  is  digits  <>; 
package  FahrenheitAndKelvin  is 

function  ConversionToKelvin  (Input  :  Fahrenheit)  return  Kelvin; 
function  Conversion_To_Fahrenheit  (Input  :  Kelvin)  return  Fahrenheit; 
end  Fahrenheit  And  Kelvin; 


—  —  packages  involving  Pounds  and  Kilograms- 


- Kilograms  <  -  *=  >  Pounds - 

generic 

type  Kilograms  is  digits  <>; 
type  Pounds  is  digits  <>; 
package  Kilograms_And_Pounds  is 

function  Conversion_To_Pounds  (Input  :  Kilograms)  return  Pounds; 
function  Conversion_To_Kilograms  (Input  :  Pounds)  return  Kilograms; 
end  Kilograms_And_Pounds; 

- Kilograms  /Meters** 2  <  =  =  >  Pounds /Foot2 - 

generic 

type  Kilograms_Per_Meter_Squared  is  digits  <>; 
type  Pounds  Per_Foot_Squared  is  digits  <>; 
package  Kilograms_Per_Meter_Squared_And_Pounds_Per_Foot  Squared  is 

function  Conversion  To  Pounds  Per_Foot2 

(Input  T  Kllograms_Per_Meter_Squared) 
return  Pounds_Per_Foot_Squared ; 

function  Conversion_To_Kilograms_Per  Meter2 

(Input  :  Pounds_Per_Foot2Squared) 
return  Kilograms_Per_Meter_Squared; 

end  Kilograms_Per_Meter_Squared_And_Pounds_Per_Foot_Squared ; 
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end  Unit  Conversions; 
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3. 6. 8. 5. 2  EXTERNAL_FORM_CONVERSION_TVOS_COMPLEMENT  (PACKAGE)  TLCSC  (CATALOG  #P683-0) 

This  generic  package  performs  scaling  operations  on  input  values.  It  is  able 
to  convert  two's  complement  engineering  units  to  floating  point  representations 
and  to  convert  floating  point  to  engineering  units. 

NOTE:  The  scaled  values,  while  representing  two's  complement  values,  are 
themselves  one's  complement  values  and,  therefore,  are  always  positive. 

The  calculations  to  go  from  a  scaled  integer  value  to  an  unsealed  floating 
point  value  are  as  follows: 

unscaledoutput  :*  unscaled_bias  +  ((scaled_value  -  scale  factor_2)  * 

unscaled_range  /  scalefactorl) 

and  the  calculations  to  go  from  an  unsealed  floating  point  value  to  a  scaled 
integer  are  as  follows: 

scaled_output  :«  (unscaled_value  -  unscaledbias)  * 

(scalefactorl  /  unscaledrange)  +  scale_factor_2 

where: 

scale_factor_l  :=  2  **  initial_engineering_units_bits  -  1 
(represents  the  value  range  which  may  be  assumed  by  the 
scaled,  integer  values) 

scale_factor_2  :«=  2  **  (initial_engineering_units_bits  -  1) 

(represents  the  scaled  bias;  T.e.,  the  amount  by  which 
the  minumum  scaled,  integer  value  is  negatively  offset 
from  0) 

unscaled_bias  :«  ( (unscaledjnax  -  unscaledjnin  +  lsb_value)  /  2J  + 

unscaled_min 

(represents  the  offset  from  0  of  the  median  unsealed  value) 
unscaled_range  :■  unscaledjnax  -  unsealed  min 

(represents  the  value  range  which  may  be  assumed  by  the 
unsealed,  floating  point  values) 

This  part  raises  a  NUMERIC_ERR0R  exception  if  Initial_Min_Unscaled_Value  is 
greater  than  InitialMaxUnscaled  Value. 


3. 6. 8. 5. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R106 


3. 6. 8. 5. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 
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|  Name 

1  Type 

|  Description  | 

|  Scaled  Integers 

1 

integer  type 

|  Defines  scaled  variables  stored  in  | 
j  engineering  units 

|  Unsealed  Floats 

1  1 

|  floating  point  type 

1  1 

Defines  unsealed  variables  stored  j 
in  floating  point  format  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 


Type 


|  Description 


1 

Bits  In  Unsealed 

|  POSITIVE 

|  Number  of  significant  bits  in  the 

1 

I 

Values 

1 

j  engineering  units  representation 

1 

1 

Initial  Min 

|  Unsealed 

j  Minimum  value  which  the  unsealed 

1 

1 

Unsealed  Value 

j  Floats 

j  values  may  assume 

1 

1 

Initial  Max 

j  Unsealed 

(  Maximum  value  which  the  unsealed 

1 

1 

Unsealed  Value 

|  Floats 

j  values  may  assume 

1 

Subprograms : 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name  |  Type  |  Description 


n*n 

n*n 


tl  /t? 
ft  /tl 


function 

function 

function 

function 


Multiplication  operator  defining  the  operation: 

Scaled  Integers  *  Unsealed  Floats  *>  Unscaled_Floats 
Multiplication  operator  defining  the  operation! 

UnscaledFloats  *  Unscaled_Floats  =>  Scaled_Integers 
Division  operator  defining  the  operation: 

UnscaledFloats  /  Scaled_Integers  =>  Unscaled_Floats 
Division  operator  defining  the  operation: 

Unsealed  Floats  /  Unsealed  Floats  =>  Scaled_Integers 


EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  table  summarizes  the  data  types  exported  by  this  part: 
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Name 


Range 


Description 


1 

Positive 

|  0  .. 

|  Subtype  of  generic  formal  type  Scaled 

1 

I 

Scaled 

Max  Scaled 

Integers;  used  to  ensure  the  values  of  the 

1 

1 

1 

Integers 

|  Value 

i  scaled  input  parameters  are  within  the 
|  allowable  range 

1 

1 

Valid 

|  Min  Unsealed 

|  Subtype  of  generic  formal  type  Unsealed 

1 

1 

Unsealed 

|  Value  . . 

|  Floats;  used  to  ensure  the  values  of  the 

1 

1 

Floats 

j  Max  Unsealed 

|  scaled  input  parameters  are  within  the 

1 

1 

|  Value 

j  allowable  range 

1 

Data  objects: 

The  following  table  summarizes  the  data  objects  exported  by  this  part: 


Name 

I  Type 

|  Value 

|  Description 

Max 

|  Scaled 

2**Bits  in 

|  Maximum  scaled  value 

Scaled 

j  Integers 

Scaled  Values 

Value 

1 

-  1 

Value 

|  Unsealed 

Initial  Max 

j  Range  of  values  which  may  be 

Range 

j  Floats 

Unsealed  Value  - 

j  assumed  by  the  unsealed 

I 

Initial  Min 

j  values 

i 

Unsealed  Value 

LSB 

|  Unsealed 

Initial  Value 

j  Value  of  the  least  significant 

Value 

j  Floats 

Range  7  Max 

j  bit  in  the  scaled  values 

1 

Scaled  Value 

Min 

|  Unsealed 

Initial  Min 

j  Minimum  unsealed  value 

Unsealed 

Floats 

Unsealed  Value 

Value 

Max 

j  Unsealed 

Initial  Max 

j  Maximum  unsealed  value 

Unsealed 

Floats 

Unsealed  Value 

Value 

3. 6. 8. 5. 2. 3  UTILIZATION  OF  OTHER  ELEMENTS 


None. 


3. 6. 8. 5. 2. 4  LOCAL  ENTITIES 


None. 


3. 6. 8. 5. 2. 5  INTERRUPTS 


None. 


CAMP  Software  Top  Level  Design  Document 


Page  618 


3. 6. 8. 5. 2. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  External_Form_Conversion_Twos_Complement ; 


function 

(Left  : 

in 

POSITIVE; 

Right  : 

in 

FLOAT)  return 

FLOAT ; 

function 

»*» 

(Left  : 

in 

FLOAT; 

Right  : 

in 

FLOAT)  return 

POSITIVE 

function 

t!  J  fl 

(Left  : 

in 

FLOAT; 

Right  : 

in 

FLOAT)  return 

POSITIVE 

function 

if  i  »f 

(Left  : 

in 

FLOAT; 

Right  : 

in 

POSITIVE)  return  FLOAT 

package  Form_Conversion  is  new 

External_Form_Conversion_Twos_Complement 
(Scaled_Integers  =>  POSITIVE, 

UnscaledFloats  =>  FLOAT, 

Bits  In_Unscaled_Values  =>  8, 
InitTal_Min_Unscaled_Value  =>  -250.0, 
Initial_Max_Unscaled_Value  =>  250.0); 

•  •  • 

Scaled  Integer  :  Form_Convers ion. Positive  Scaled  Integers; 
Unscaled_Float  :  Form_Conversion.Valid_Unscaled_Floats; 

«  •  • 

begin 
•  •  • 

Unscaled_Float  :«=  Form_Conversion.Unscale(Scaled_Integer) ; 
•  «  • 

Scaled  Float  :*  Form_Conversion.Scale(Unscaled_Float) ; 


3. 6. 8. 5. 2. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 8. 5. 2. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


j  Name  |  Type  |  Description 


Scale 

Unscale 


function  |  Performs  scaling  operation  on  a  floating  point  value 
j  to  convert  it  to  an  engineering  units  representa- 
j  tion 

function  j  Performs  an  unsealing  operation  on  a  value  in 

j  engineering  units  representation  to  convert  it  to  a 
floating  point  representation 


The  following  table  lists  the  catalog  part  numbers  for  the  decomposition  of 
this  part: 
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|  Name  | 

Catalog  £  | 

|  Scale  1 

P687-0  | 

|  Unscale  j 

P688-0  | 

3. 6. 8. 5. 2. 9 

PART  DESIGN 

None. 
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generic 

type  Scaled_Integers 
type  Unsealed  Floats 
Bi ts_In_Scale3_Values 
Ini tial_Min_Unscaled_Value 
Ini tial_Max_Unscaled_Value 
with  function  (Left  : 

Right  : 

with  function  (Left  : 

Right  : 

with  function  "/"  (Left 

Right  : 

with  function  "/"  (Left  : 

Right  : 


is  range  <>; 
is  digits  <> ; 

:  in  POSITIVE; 

:  in  Unscaled_Floats; 

:  in  Unscaled_Floats ; 
in  Scaled_Integers; 
in  Unscaled_Flo?.ts)  return 
in  Unscaled_Floats; 
in  Unscaled_Floats)  return 
in  Unscaled_Floats; 
in  Unscaled_Floats)  return 
in  Unscaled_Floats; 
in  Scaled_Integers)  return 
vos  Complement  is 


package  ExternalFormConversion 


UnscaledFloats  is  <>; 
Scaled_Integers  is  <>; 
Scaled_Integers  is  <>; 
Unsealed  Floats  is  <>; 


—  —  constant  definitions 


MaxScaledValue  :  constant  Scaled_Integers 
Value  Range  :  constant  Unsealed  Floats 


2**Bits_In_Scaled_Values  -  1; 

Initial_Max_Unscaled_Value  - 
Initial  Min  Unsealed  Value; 


Lsb  Value 


constant  Unscaled_Floats  :=  Value_Range  / 

Max  Scaled  Value; 


Min_Unscaled_Value  s  constant  Unscaled  Floats  Initial_Min_Unscaled_Value; 
Max  Unsealed  Value  :  constant  Unscaled~Floats  Initial  Max  Unsealed  Value; 


—  —  subtype  definitions 


subtype  Positive_Scaled_Integers  is  Scaled_Integers 

range  0  ..  Max_Scaled_Value; 

subtype  Valid_Unscaled_Floats  is  UnscaledFloats 

range  Min_Unscaled_Value  ..  Max_Unscaled_Value; 


—  — function  specifications 

function  Scale  (Unscaled_Value  :  Valid_Unscaled_Floats) 
return  Positive_Scaled_Integers; 

function  Unscale  (Scaled_Value  :  Positive_Scaled_Integers) 
return  Valid_Unscaled_Floats; 

end  External_Form  Conversion  Twos_Complement; 
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3. 6. 8. 6  SIGNAL_PROCESSING  TLCSC  (CATALOG  #P70-0) 

This  package  provides  signal  processing  parts.  Each  part  is  designed  as  an  Ada 
generic  package,  where  the  generic  parameters  will  specify  the  data  types  of 
the  input  and  output  signals  and  the  values  for  coefficients  used  in  performing 
the  signal  processing  functions. 


3  6.8.6. 1  REQUIREMENTS  ALLOCATION 

The  following  diagram  summarizes  the  allocation  of  CAMP  requirements  to  this 
part's  LLCSC's. 


|  Name 


Type  |  Req.  Allocation  | 


Limiter  (Upper  &  Lower  Bounds) 

Limiter  (Upper  Bound) 

Limiter  (Lower  Bound) 

Absolute  limiter 

Absolute  limiter  with  flag 

General  First  Order  Filter 

Tustin  Lag  Filter 

Tustin  Lead-Lag  Filter 

Second  Order  (Notch)  Filter 

Tustin  Integrator  with  Limit 

Tustin  Integrator  with 
Asymmetric  Limit 


generic  package 
generic  package 
generic  package 
generic  package 
generic  package 
generic  package 
generic  package 
generic  package 
generic  package 
generic  package 
generic  package 


R108 

R037 

R038 

R160 

P202 

R109 

R162 

R161 

R110,  Rill 
R203 


3. 6. 8. 6. 2  INPUT/OUTPUT 
EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 
Data  types: 


|  Name 

1  Type 

Description  | 

|  Limit  Relations 
j  Lower  Bounds) 

1 

|  enumeration 

1 

Establishes  the  relationship  j 
between  a  signal  and  the  limit  | 
imposed  on  that  signal. 
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3. 6. 8. 6. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 8. 6. 4  LOCAL  ENTITIES 
None . 

3. 6. 8. 6. 5  INTERRUPTS 
None. 


3. 6. 8. 6. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Signalprocessing,  AutopilotDataTypes; 
procedure  USER  is 

type  CommandSignals  is  Autopilot_Data_Types.Roll_Commands; 
package  Command_Limiter  is  new  Signal_Processing.Absolute_Limiter 

(Signal  Type  =>  Command  Signals, 
InitiaI_Absolute_Limit  «>  5.0); 

Command , 

Limited_Signal  :  Command_Signals; 
begin 

Limi ced_Signal  :*  Command_Limi ter. Limit  (Command);  ' 
Command_Limiter.Update_Limit  (New_Absolute_Limit  ->  2.5); 
end  USER; 


3. 6. 8. 6. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 8. 6. 8  DECOMPOSITION 


Packages : 

The  following  table  lists  the  packages  contained  in  this  package  and  their 
general  description: 
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|  Name 


Type  |  Description 


Upper  Lover  ' 

Limiter 

1 

generic 

Upper  Limiter  | 

1 

generic 

! 

Lower  Limiter 

generic 

1 

Absolute  Limiter  | 

generic 

I 

Absolute  Limiter  | 
with  Flag  | 

1 

generic 

I 

General_First  | 

Order  Filter 

| 

generic 

1 

Tustin_Lag_Filter | 

1 

generic 

1 

1 

Tustin  Lead  Lag  | 
Filter  | 

1 

generic 

I 

Second  order  | 

Filter  j 

1 

generic 

Tustin  integrator! 

with_Iimit  j 

Tustin  Integrator! 

generic 

generic 

vith_Asymmetric 

Limit 


Performs  limiter  function  on  input 
signal.  Initializes  limits  and 
allows  updating  of  limits. 

Performs  limiter  function  with  upper 
limit  only.  Initializes  limit  and 
allows  updating  of  limit. 

Performs  limiter  function  with  lower 
limit  only.  Initializes  limit  and 
allows  updating  of  limit. 

Performs  limiter  function  based  on 
absolute  value  of  signal.  Initial¬ 
izes  limit  and  allows  updating. 
Performs  limiter  function  based  on 
absolute  value  of  signal  and  sets 
flag  if  upper  or  lower  limit  reached. 
Initializes  limit  and  allows 
updating. 

Performs  first  order  filter  operation 
according  to  general  method  using 
three  coefficients.  Also  performs 
initialization  of  coefficients  and 
allows  their  values  to  be  updated. 
Performs  first  order  filter  operation 
according  to  Tustin  method.  Performs 
initialization  of  coefficients  and 
allows  their  values  to  be  updated. 
Performs  first  order  filter  operation 
according  to  Tustin  Lead  Lag  method. 
Initializes  coefficients  and  allows 
their  values  to  be  updated. 

Performs  second  order  filter  operation 
according  to  Notch  filter  method. 
Initializes  coefficients  and  allows 
their  values  to  be  updated. 

Performs  integration  operation  on 
signal  and  limits  output. 

Performs  integration  operation  on 
signal  and  limits  output. 


3. 6. 8. 6. 9  PART  DESIGN 

3. 6. 8. 6. 9.1  UPPER_LOWER_LIMITER  (CATALOG  #P71-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  both  upper  and  lower  bounds)  and  to  update  the  values  of  the 
bounds.  The  package  initializes  the  limits  as  part  of  the  elaboration  of  the 
instantiation. 
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3. 6. 8. 6. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R108. 


3. 6. 8. 6. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Signal  Type 

1 

|  generic  float 

1 

|  Defines  data 
|  signals  to 

type  for  incoming | 
limiter.  j 

Data  Objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

|  Type 

|  Description 

1 

|  Initial  Upper 

|  Signal  Type 

|  Initial  value  of  upper 

limit  | 

j  Limit 

1 

j  signals  to  limiter. 

! 

j  Initial  Lower 

|  Signal  Type 

j  Initial  value  of  lower 

limit  | 

|  Limit 

1 

signals  to  limiter. 

1 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 
Exceptions: 


|  Name  |  Description 


|  Limit_Exception  |  This  exception  is  raised  if  the  value  of  the 
I  j  Initial_Upper_Limit  <=  Initial_Lover_Limit 


3. 6. 8. 6. 9. 1.3  LOCAL  ENTITIES 

Data  Structures:  Must  internally  store  upper  and  lover  limits. 
Subprograms : 

Must  perform  initialization  of  upper  and  lover  limits  from  generic  object 
parameters,  setting  Limit_Exception  if  upper  limit  not  greater  than  lower 
limit . 
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3. 6. 8. 6. 9. 1.4  INTERRUPTS 
None. 


3. 6. 8. 6. 9. 1.5  TIMING  AND  SEQUENCING 

with  SignalProcessing,  Autopilot_Data_Types ; 
procedure  USER  is 

type  Command_Signals  is  Autopilot_Data  Types . Roll_Commands ; 
package  Command_Limiter  is  new  Signal_Processing. Upper  Lower  Limiter 

(Signal_Type  =>  Command_Signals, 
Initial_Upper_Limit  =>  5.0, 
Initial_Lower_Limit  =>  0.0); 

Command , 

Limited  Signal  :  Command_Signals ; 
begin 

Limited_Signal  :=  CommandLimi ter. Limit  (Command); 
Command_Limiter.Update_Limits  (New_Upper_Limit  =>  2.5, 

New_Lower_Limit  =>  0.0); 

end  USER; 


3. 6. 8. 6. 9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 1.7  DECOMPOSITION 


Subprograms : 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Update  Limits 

|  Procedure 

|  Updates  values 

of  upper  and  lower  | 

1 

! 

1  limits 

|  Limit 

|  Function 

j  Returns  limited 

value  of  input  1 

1 

1 

'  signal 

1 

3. 6. 8. 6. 9. 1.8  PART  DESIGN 
None. 


3. 6. 8. 6. 9. 2  UPPER_LIMITER  (CATALOG  #P72-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  upper  bounds)  and  to  update  the  value  of  the  bounds.  The  package 
initializes  the  limits  as  part  of  the  elaboration  of  the  instantiation. 
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3. 6. 8. 6. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R037. 

3. 6. 8. 6. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Signal  Type  | 

1  '  1 

generic  float 

|  Defines  data  type  for  incomingl 
!  signals  to  limiter.  | 

Data  Objects: 

The  following  table 

describes  the 

generic  formal  objects  required  by 

|  Name  | 

Type 

|  Description  | 

|  Initial_Upper_  | 
j  Limit 

Signal_Type 

|  Initial  value  of  upper  limit  j 
j  signals  to  limiter.  j 

3. 6. 8. 6. 9. 2. 3  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  upper  limit. 

Subprograms: 

Must  perform  initialization  of  upper  limit  from  generic  object  parameter. 


3. 6. 8. 6. 9. 2. 4  INTERRUPTS 


None. 


3. 6. 8. 6. 9. 2. 5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 
with  Signal_Processing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command_Signals  is  Autopilot_Data_Types.Roll_Commands; 
package  Command_Limiter  is  new  Signal_Processing.Opper_Limiter 

(Signal_Type  =>  Command_Signals, 
Initial_Upper_Limit  =>  5.0); 
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Command , 

Limited_Signal  :  Command_Signals ; 
begin 

Limi ted_Signal  :=  Command_Limiter. Limit  (Command); 
Command_Limiter.Update_Limit  (New_Upper_Limi t  =>  2.5); 
end  USER; 


3. 6. 8. 6. 9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 2. 7  DECOMPOSITION 
Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  *  | 

|  Update  Limit 
|  Limit 

|  Procedure 
j  Function 

|  Updates  value  of  upper  limit  | 

j  Returns  limited  value  of  input  | 

3. 6. 8. 6. 9. 2. 8  PART  DESIGN 


None. 


3. 6.8. 6. 9. 3  ABSOLUTE JLIMITER  (CATALOG  #P74-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  an  absolute  bound)  and  to  update  the  value  of  the  bounds.  The 
package  initializes  the  limits  as  part  of  the  elaboration  of  the  instantiation. 


3. 6. 8. 6. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R160. 


3. 6. 8. 6. 9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name  | 

Type 

I  Description  | 

|  Signal  Type  | 

1  "  1 

generic  float 

|  Defines  data  type  for  incoming! 
signals  to  limiter.  | 

Data  Objects: 

The  following  table 

describes  the 

generic  formal  objects  required  by 

|  Name  | 

Type 

|  Description  | 

|  Initial  Absolute! 
i  Limit  j 

Signal_Type 

|  Initial  value  of  absolute  | 

j  limit 

3. 6. 8. 6. 9. 3.3  INPUT/OUTPUT 


None. 


3. 6. 8. 6. 9. 3. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  absolute  limit. 

Subprograms : 

(1)  Must  perform  initialization  of  absolute  limit  from  generic  object 
parameter.  (2)  Must  calculate  sign  of  input  signal. 


3. 6. 8. 6. 9. 3. 5  INTERRUPTS 


None. 


3. 6. 8. 6. 9. 3. 6  TIMING  AND  SEQUENCING 


with  SignalProcessing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command_Signals  is  Autopilot_Data_Types.Roll_Commands; 
package  Command_Limiter  is  new  Signal_Processing. Absolute_Limiter 

(Signal  Type  =>  Command_Signals, 
InitiaI_Absolute_Limit  =>  -5.0); 

Command , 

Limited_Signal  :  Command_Signals; 
begin 

Limited_Signal  :=  Command_Limiter. Limit  (Command); 
Command_Limiter.Update_Limit  (Nev_Absolute_Limi t  =>  2.5); 
end  USER; 
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3. 6. 8. 6. 9. 3. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 3. 8  DECOMPOSITION 
Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Description 

1 

|  Update  Limit 

|  Procedure 

Updates  value  of  absolute 

limit  | 

|  Limit 

j  Function 

Returns  limited  value  of 

input  i 

3. 6. 8. 6. 9. 3. 9 

PART  DESIGN 

None. 


3. 6. 8. 6. 9. 4  ABSOLUTE_LIMITER_VITH_FLAG  (CATALOG  #P75-0) 

This  package  exports  operations  to  perform  a  limiter  function  on  an  input 
signal  (with  an  absolute  bound).  The  flag  will  determine  if  the  current  input 
is  within  the  absolute  limits,  above  the  upper  limit  or  below  the  lower  limit. 
The  part  performs  the  limit  operation,  setting  or  resetting  the  limit  relation 
as  appropriate.  It  can  also  update  the  the  value  of  the  limit,  and  test  the 
value  of  the  flag.  The  package  initializes  the  limits  as  part  of  the 
elaboration  of  the  instantiation. 


3. 6. 8. 6. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R202. 

3. 6. 8. 6. 9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Signal  Type 

1 

j  generic  float 

1 

|  Defines  data 
signals  to 

type  for  incomingl 
limiter.  j 
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Data  Objects: 


The  following  table 

describes  the 

generic  formal  objects  required  by 

!  Name  | 

Type 

|  Description  | 

|  Initial  Absolutel 

Signal  Type 

|  Initial  value  of  absolute 

Limit  j 

|  limit  j 

3. 6. 8. 6. 9. 4. 3  INPUT/OUTPUT 
None. 


3. 6. 8. 6. 9. 4. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  absolute  limit. 

Subprograms: 

(1)  Must  perform  initialization  of  absolute  limit  from  generic  object 
parameter.  (2)  Must  calculate  sign  of  input  signal. 


3. 6. 8. 6. 9. 4. 5  INTERRUPTS 
None. 


3. 6. 8. 6. 9. 4. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  SignalProcessing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command_Signals  is  Autopilot_Data_Types.Roll_Commands; 
package  Command_Limiter  is  new 

Signal_Processing.Absolute_Limiter_Vith_Flag 
(SignalType  =>  Command_Signals, 
initial_Absolute_Limit  =>  -5.0); 

Command , 

LimitedSignal  :  Command_Signals; 
begin 

Limited_Signal  :=  Command_Limi ter. Limit  (Command); 
Command_Limiter.Update_Limit  (New_Absolute_Limi t  =>  2.5); 
end  USER; 


3. 6. 8. 6. 9. 4. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3. 6. 8. 6. 9. 4. 8  DECOMPOSITION 


Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Description 

|  Update  Limit 
|  Limit  Flag 
Setting 
j  Limit 

|  Procedure 
|  Function 

j  Function 

Updates  value  of  absolute  limit  | 

Returns  Limit  Relations  type  j 

giving  relation  of  signal  to  limit j 
Returns  limited  value  of  input  j 

3. 6. 8. 6. 9. 4. 9  PART  DESIGN 
None. 


3. 6. 8. 6. 9. 5  ^NERAL_FIRST_ORDER_FILTER  (CATALOG  #P76-0) 

This  package  exports  operations  to  perform  a  filter  function  on  an  input 
signal.  The  part  performs  the  first  order  fileter  operation,  and  can  also 
update  the  values  of  the  coefficients  to  the  filter.  The  package  initializes 
the  filter  as  part  of  the  elaboration  of  the  instantiation. 

The  form  of  the  filter  operations  is  as  follows: 

X  :=  (cl  *  Input  Signal)  +  (c2  *  Prev_Input)  +  (c3  *  PrevOutput) 

Prevlnput  :«=  Input_SignaI; 

Prev  Output  :*=  X; 


3. 6. 8. 6. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R109. 


3. 6. 8. 6. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


|  Signal_Type  |  generic  float  |  Defines  data  type  for  incomingl 

j  j  j  signals  to  filter, 

i  Coef f icient_Type j  generic  float  j  Defines  data  type  for  incoming) 

!  j  coefficients  to  filter.  j 
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Data  Objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name  | 

Type  | 

Description  | 

|  Initial  Previous) 

|  Input  Signal  j 

|  Initial  j 

j  Coefficient  l,j 

1  _2  ! 

Signal_Type  I 

Coeff icient_Type  j 

1 

Initial  value  of  input  signal  | 
for  first  pass  ■ 

Initial  values  of  coefficients! 
to  the  filter  j 

1 

Subprograms: 

The  following  table 

shows  the  generic 

formal  objects  required  by  this 

|  Name  | 

Type  | 

Description  | 

|  «*»  | 

1  1 

1  | 

1  1 

Function 

1 

Function 

1 

Signal  Type  *  Coefficient  Type| 
return  Signal_Type  | 

Signal_Type  /  Coefficient  Typej 
return  Signal_Type  j 

3. 6. 8. 6. 9. 5. 3  INPUT/OUTPUT 
None. 

3. 6. 8. 6. 9. 5. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  coefficients  and  previous  input  and  output  signals 
Subprograms: 

Must  perform  initialization  of  coefficients  and  previous  input  signal  and 
calculate  value  of  previous  output  signal. 

3. 6. 8. 6. 9. 5. 5  INTERRUPTS 
None. 


3. 6. 8. 6. 9. 5. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Signal_Procassing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command  Signals  is  Autopilot_Data_Types.Roll_Commands; 

type  Coefficients  is  Autopilot_Data_Types.Degrees~To_Degrees_Gains; 
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package  Command_Filter  is  new 

Signal_Processing.General_Firs t_Order_Filter 

(Signal_Type  =>  Command_Signals, 

Coef f icient_Type  =>  Coefficients, 

Ini tial_Previous_Input_Signal  =>  0.0, 

Initial  Coef f icient_l  =>  0.988, 

Initial_Joef ficient_2  =>  0.118, 

Initial_Coef f icient_3  =>  0.0988); 

Command , 

Filtered_Signal  :  Command_Signals ; 
begin 

FilteredSignal  :=  Command_Filter. Filter  (Command); 
CommandFilter .UpdateCoef f icients  (Coefficient  1  =>  0.977, 

Coef f icient_2  =>  0.098, 

Coef f icient_3  =>  0.122); 

end  USER; 


3. 6. 8. 6. 9. 5. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 5. 8  DECOMPOSITION 


Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Description  | 

|  Update 

j  CoefTicients 
|  Filter 

|  Procedure 

1 

|  Function 

Updates  values  of  the  three 
Coefficients 

Returns  filtered  value  of  input  | 

3. 6. 8. 6. 9. 5. 9  PART  DESIGN 
None. 


3. 6. 8. 6. 9. 6  TUSTIN_LEAD_LAG_FILTER  (CATALOG  IP77-0) 

This  package  exports  operations  to  perform  a  filter  function  on  an  input 
signal.  The  part  performs  the  Tustin  Lead  Lag  filter  operation,  and  can  also 
update  the  values  of  the  coefficients  to  the  filter.  The  package  initializes 
the  filter  as  part  of  the  elaboration  of  the  instantiation. 

The  form  of  the  filter  operations  is  as  follows: 

X  :=  (cl  *  (Input_Signal  -  Prev  Input)  + 

(c2  *  (Prev  Output  -  Prev_Input)  +  Prevlnput) 

Prevlnput  :=  Input_SignaT; 

Prev_0utput  :=  X; 
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3. 6. 8. 6. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R161. 


3. 6. 8. 6. 9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type  | 

Description  | 

|  Signal  Type  | 

1  "  1 
|  Coefficient  Type| 

1  1 

generic  float  | 

1 

generic  float  , 

1 

Defines  data  type  for  incoming] 
signals  to  filter.  j 

Defines  data  type  for  incoming! 
coefficients  to  filter. 

Data  Objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 

|  Name  | 

Type  | 

Description  j 

|  Initial_Previous| 

|  Input_Signal  j 

j  Initial  j 

i  Coefficient  1,  j 

1  _2  1 

SignalType  1 

Coef f icient_Type | 

1 

Initial  value  of  input  signal  | 
for  first  pass  j 

Initial  values  of  coefficients! 
to  the  filter  j 

1 

Subprograms : 

The  following  table 

shows  the  generic 

formal  objects  required  by  this  part: 

|  Name  j 

Type  | 

Description  | 

1  1 

1  1 

Function  j 

1 

Signal_Type  *  Coef f icient_Type | 
return  Signal_Type 

3. 6. 8. 6. 9. 6. 3  INPUT/OUTPUT 


None. 
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3. 6. 8. 6. 9. 6. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  coefficients  and  previous  input  and  output  signals 
Subprograms: 

Must  perform  initialization  of  coefficients  and  previous  input  signal  and 
calculate  value  of  previous  output  signal. 

3. 6. 8. 6. 9. 6. 5  INTERRUPTS 
None. 


3. 6. 8. 6. 9. 6. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Signal_Processing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command  Signals  is  AutopilotDataTypes.RollCommands; 

type  Coefficients  is  Autopilot_Data_Types.Degrees_To_Degrees_Gains; 

package  Command_Filter  is  new 

Signal_Process  ing .  Tus  t  i  n_Lead_Lag_Fi  1 1  er 

(SignalJType  «>  Command  Signals, 

Coefficient  Type  «>  Coefficients, 

Initial_Previous_Input_Signal  «>  0.0, 

Initial_Coefficient_l  »>  0.988, 

Initial_Coeff icient_2  =>  0.0988); 

Command , 

Filtered_Signal  ;  Command_Signals; 
begin 

Filtered_Signal  Command_Filter. Filter  (Command); 

Command_Filter .Update  Coeff icients  (New_Coef f icientl  =>  0.977, 

•  New  Coef f icient_2  =>  0.122); 

end  USER; 


3. 6. 8. 6. 9. 6. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 6. 8  DECOMPOSITION 


Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 
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|  Name 

|  Type 

Description  | 

|  Update 

j  Coefficients 
j  Filter 

|  Procedure 

|  Function 

Updates  values  of  the  two  | 

Coefficients  j 

Returns  filtered  value  of  input  | 

3. 6. 8. 6. 9. 6. 9  PART  DESIGN 


None. 


3. 6. 8. 6. 9. 7  TUSTIN_LAG_FILTER  (CATALOG  #P78-0) 

This  package  exports  operations  to  perform  a  filter  function  on  an  input 
signal.  The  part  performs  the  Tustin  Lag  filter  operation,  and  can  also  update 
the  values  of  the  coefficients  to  the  filter.  The  package  initializes  the 
filter  as  part  of  the  elaboration  of  the  instantiation. 

The  form  of  the  filter  operations  is  as  follows: 

X  :=  (cl  *  (Input_Signal  -  Prev_Input)  +  (c2  *  Prev_Output) 

Prev_Input  :=  Input_Signal; 

Prev_Output  :«=  X; 


3. 6. 8. 6. 9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R109. 


3. 6. 8. 6. 9. 7. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  |  Type  |  Description  | 

|  Signal_Type  |  generic  float  |  Defines  data  type  for  incoming | 

j  j  |  signals  to  filter.  i 

j  Coeff icientType j  generic  float  j  Defines  data  type  for  incoming! 

j  j  j  coefficients  to  filter.  | 

Data  Objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 
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|  Name  | 

Type  | 

Description  ; 

|  Initial  Previous! 

|  Input  Signal  | 

|  Initial 

j  Coefficient  1, j 

|  _2  j 

Signal  Type  | 

Coefficient  Type| 

1 

1 

Initial  value  of  input  signal  | 
for  firs  pass  | 

Initial  va.ues  of  coefficients! 
to  the  filter 

1 

Subprograms : 

The  following  table 

shows  the  generic 

formal  objects  required  by  this 

|  Name  | 

Type  I 

Description  | 

1  "*"  1 

1  I 

Function  | 

1 

Signal  Type  *  Coefficient  Type| 
return  Signal  Type  | 

3. 6. 8. 6. 9. 7. 3  INPUT/OUTPUT 


None. 


3. 6. 8. 6. 9. 7. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  coefficients  and  previous  input  and  output  signals 
Subprograms: 

Must  perform  initialization  of  coefficients  and  previous  input  signal  and 
calculate  value  of  previous  output  signal.  , 


3. 6. 8. 6. 9. 7. 5  INTERRUPTS 
None. 


3. 6. 8. 6. 9. 7. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Signal_Processing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command_Signals  is  Autopilot_Data_Types.Roll_Commaids; 

type  Coefficients  is  Autopilot_Data_Types.Degrees_To_Degrees_Gains; 

package  CommandFilter  is  new 

Signal_Processing.Tustin_Lead_Fil ter 

(Signal_Type  =>  Command  Signals, 

Coef ficient_Type  =>  Coefficients, 

Initial_Previous_Input_Signal  =>  0.0, 

Initial  Coefficient  1  =>  0.988, 


CAMP  Software  Top  Level  Design  Document 


Page  640 


Initial_Coeff icient_2  =>  0.0988); 

Command , 

Filtered_Signal  :  Command_Signals ; 
begin 

Filtered_Signal  :=  Command  Limi ter . Fi Iter  (Command); 
Command_Filter . Update_Coef f icients  (New_Coef f icient_l  =>  0.977, 

Nev_Coef f icient_2  =>  0.122); 

end  USER; 


3. 6. 8. 6. 9. 7. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 7. 8  DECOMPOSITION 


Subprograms : 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Update 

i  Coeflicients 
j  Filter 

|  Procedure 

1 

|  Function 

|  Updates  values  of  the  two  | 

|  Coefficients  | 

j  Returns  filtered  value  of  input  | 

3. 6. 8. 6. 9. 7. 9  PART  DESIGN 


None. 


3. 6. 8. 6. 9. 8  SECOND  ORDER  FILTER  (CATALOG  #P79-0) 


This  package  exports  operations  to  perform  a  filter  function  on  an  input 
signal.  The  part  performs  the  Second  Order  filter  operation,  and  can  also 
update  the  values  of  the  coefficients  to  the  filter  through  a  redefine 
operation.  The  package  initializes  the  filter  as  part  of  the  elaboration  of 
the  instantiation. 


The  form  of  the  filter 
X  :  = 


2nd_Prev_Input  := 
Prevlnput  := 
2nd_Prev_0utput  := 
PrevOutput  := 


operations  is  as  follows: 

(cl  *  (Input_Signal  -  2nd_Prev_Input)  + 
(c2  *  (Prev_Input  -  Prev_0utput)  )  - 
(c3  *  2nd_Prev_0utput) ; 

Prev_Input ; 

InputSignal; 

Prev_0utput ; 

X; 


CAMP  Software  Top  Level  Design  Document 


Page  641 


3. 6. 8. 6. 9. 8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R110. 


3. 6. 8. 6. 9. 8. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type  | 

Description  | 

|  Signal  Type  | 

j  Coefficient  Typej 

1  1 

generic  float  | 

1 

generic  float  | 

1 

1 

Defines  data  type  for  incoming! 

signals  to  filter.  1 

Defines  data  type  for  incoming! 
coefficients  defining  j 

parameters  | 

Data  Objects: 

The  following  table 

describes  the  generic  formal  objects  required  by  this  part: 

|  Name  | 

Type  | 

Description  | 

|  Initial_Previous | 
j  Input_Signal  j 

j  Initial  j 

Coefficient 
]  Defining_  | 

j  Parameters 

Signal_Type  j 

Coef f icient_Type  j 

1 

Initial  value  of  input  signal  | 
for  first  pass 

Initial  values  used  in  defin-  j 
ing  the  filter  coefficients. j 

1 

1 

Subprograms: 

The  following  table 

shows  the  generic 

formal  objects  required  by  this  part: 

|  Name  | 

Type  | 

Description  | 

1  1 

1  I 

Function 

1 

Signal_Type  *  Coefficient  Type| 
return  Signal_Type 

3. 6. 8. 6. 9. 8. 3  INPUT/OUTPUT 


None. 
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3. 6. 8. 6. 9. 8. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  coefficients  and  previous  input  and  output  signals 
Subprograms : 

Must  perform  initialization  of  coefficients  and  previous  input  signal  and 
calculate  value  of  previous  output  signal. 

3. 6. 8. 6. 9. 8. 5  INTERRUPTS 
None. 


3. 6. 8. 6. 9. 8. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  SignalProcessing,  AutopilotData  Types; 
procedure  USER  is 

type  Command_Signals  is  Autopilot  Data_Types.Roll_Commands; 

type  Coefficients  is  Autopilot_Data_Types.Degrees_To_Degrees_Gains; 

package  Command_Filter  is  new 

Signal_Processing.Second_Order_Filter 

(Signal_Type  ■>  Command  Signals, 

Coefficient_Type  «>  Coefficients, 

Initial_Previous_Input_Signal  «>  0.0, 
Initial_Coefficient  Def ining_Parameter_l 

«>  0.9887 

Ini tial_Coefficient_Defining_Parameter  2 

->  0.0988) ; 

Command , 

FilteredSignal  :  Command_Signals; 
begin 

Filtered_Signal  :=  Command_Filter. Filter  (Command); 

Command_Fi Iter. Redefine  Coefficients 

(NewCoef  f  icient_DefIning_Parameter_l  =>  0.977, 

NewCoef f icient_Def ining  Parameter_2  »>  0.122); 
end  USER; 


3. 6. 8. 6. 9. 8. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 8. 8  DECOMPOSITION 


Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 
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|  Name 

1  Type 

Description  | 

|  Redefine 

|  Procedure 

Performs  procedure  on  defining  | 

j  Coefficients 

1 

1 

parameters  to  generate  new  j 

coefficients.  j 

|  Filter 

|  Function 

Returns  filtered  value  of  input  | 

3. 6. 8. 6. 9. 8. 9  PART  DESIGN 
None. 


3. 6. 8. 6. 9. 9  TUSTIN_INTEGRATOR_WITH_LIMIT  (CATALOG  #P80-0) 

This  package  exports  operations  to  perform  Tustin  Integrator  with  Limit 
operation  on  successive  input  signals.  The  package  also  provides  the  ability 
of  updating  the  values  of  the  integration  constant  and  limit.  The  package  body 
uses  the  Absolute_Limiter_with_Flag  package  to  set  and  test  the  limit  flag. 

The  package  initializes  the  integrator  as  part  of  the  elaboration  of  the 
instantiation. 

The  form  of  the  integration  will  be: 

Y  =  Y_prev  +  (X  +  X_prev)  *  gain  *  0.5  *  integration_time_interval. 


3. 6. 8. 6. 9. 9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R203. 


3. 6. 8. 6. 9. 9. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


|  Signals 

|  generic 

1 

float 

|  Defines  data  type  for  incomingl 
j  signals  to  integrator.  | 

j  States 

|  generic 

1 

float 

j  Defines  data  type  for  signals  j 
j  output  from  integrator  j 

j  Gained  Signals 

|  generic 

1 

float 

j  Defines  data  type  for  incoming! 
j  signal  after  gain  applied  J 

j  Gains 

|  generic 

float 

j  Defines  data  type  for  gains  j 

j  Times 

j  generic 

1 

float 

j  Defines  data  type  of  time 
|  interval  | 

Data  Objects: 
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The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

1 

Description  | 

|  Initial  Signal 
j  Level 

j  Initial  Output 
Level 

j  Initial  Output 
j  Limit 

|  Initial  Time 
j  Inteval 

j  Initial 
|  Tustin  Gain 

|  Signals 

1 

|  States 

1 

|  States 

1 

|  Times 

|  Gains 

1 

1 

1 

1 

1 

1 

I 

1 

1 

1 

I 

Initial  value  of  input  signal  | 
for  first  pass.  j 

Initial  values  of  output  j 

signal  after  first  pass.  ! 

Initial  value  of  limit  j 

on  integrator  output.  | 

Initial  value  of  time  interval | 
for  integration  j 

Initial  value  of  gain  used  | 

Tustin  integration 

Subprograms: 

The  following  table  shows  the 

generic 

formal  objects  required  by  this 

|  Name 

1  Type 

1 

Description  | 

|  "*« 

1 

j  "*» 

1 

|  Function 

1 

|  Function 

1 

1 

1 

I 

1 

Signals  *  Gains  | 

return  Gained_Signals  j 

Gained_Signals  *  Times  | 

return  States  j 

3. 6. 8. 6. 9. 9. 3  INPUT/OUTPUT 


None. 


3. 6. 8. 6. 9. 9. 4  LOCAL  ENTITIES 
Data  Structures: 

Must  internally  store  gains  and  previous  input  and  output  signals 
Subprograms : 

Must  perform  limit  operation  and  flag  setting  as  specified  in  R202  and 
integrator  specified  in  R124.  Must  perform  initialization  of  gain,  previous 
input  signal,  previous  output  signal,  and  limit. 

Packages : 

Must  implement  a  local  integrate  and  limit  function.  Uses  the  Absolute_Limit_ 
WithFlag  package  for  limit,  and  the  General_Math. Integrator  package  for  these 
operations. 
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3. 6. 8. 6. 9. 9. 5  INTERRUPTS 
None . 


<• 


3. 6. 8. 6. 9. 9. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Signal_Processing,  Autopilot_Data_Types; 
procedure  USER  is 

type  Command_Signals  is  new  Autopilot_Data_Types.Roll_Commands; 
type  Command_Gains  is  new 

Autopilot_Data_Types. Degrees  To_Degrees_Per_Second_Gains; 
type  Gained_Command_Signals  is  new 

Autopilot_Data_Types . Feedback_Rates  Degrees ; 
package  Commandlntegrator  is  new 

Signal  Processing. Tustin  Integrator  With  Limit 


(SignalType 
Gains 

Gained_Signals 
Time_Type 
Output  Type 
InitiaI_Tustin_Gain 
Ini tial_Signal_Level 
In i t i al_0u  t  pu  t_Le ve 1 
Initial  Time  Interval 


=>  Command  Signals, 

=>  Comman3_Gains, 

=>  Gained_Command_Signals, 
=>  Seconds, 

=>  Command_Signals, 

=>  0.0, 

=>  0.0, 

=>  0.0, 

=>  1.0/64.0, 

«>  5.0); 


Initial_Output_Limit 
Command  s  Command_Signals ; 

Integrated_Signal  :  Command_Signals; 
begin 

Integrated_Signal  :=  Command_Integrator. Integrate  (Command); 
Command_Integrator.Update_Integration_Coef  f  icient 
(New_Absolute_Limit  ->~2.5); 
end  USER; 


3. 6. 8. 6. 9. 9. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 6. 9. 9. 8  DECOMPOSITION 
Subprograms: 

The  following  table  shows  the  generic  formal  objects  required  by  this  part: 
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|  Name 


Type  |  Description 


|  Update  Limit 


Procedure 


Upda^eGain 

Integrate 

Reset 


Procedure 

Function 

Procedure 


Limi t_Flag 
Setting 


Function 


Updates  absolute  limit  on  integrator 
output . 

Updates  gain  on  input  signal 
Returns  integrated  value  of  input. 
Resets  integrator  state  and  previous 
input  to  new  values 
Returns  Limit  Relations  type 

giving  relation  of  signal  to  limit 


3. 6. 8. 6. 9. 9. 9  PART  DESIGN 
None. 


3.6.8.6.9.10  TUSTIN_INTEGRATOR_VITH_ASYMMETRIC_LIMIT  (CATALOG  #P1053-0) 

This  package  exports  operations  to  perform  Tustin  Integrator  with  Limit 
operation  on  successive  input  signals.  The  package  also  provides  the  ability 
of  updating  the  values  of  the  integration  constant  and  limit.  The  package  body 
uses  the  AbsoluteLimiter  vithJFlag  package  to  set  and  test  the  limit  flag. 

The  package  initializes  tKe  integrator  as  part  of  the  elaboration  of  the 
instantiation. 

The  form  of  the  integration  will  be: 

Y  =  Y_prev  +  (X  +  X_prev)  *  gain  *  0.5  *  integration_time_interval. 


3.6.8.6.9.10.1  REQUIREMENTS  ALLOCATION 
None. 


'  3.6.8.6.9.10.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  Types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 


Type  |  Description 


Signals 

States 

Gained_Signals 

Gains 

Times 


generic  float 

generic  float 

generic  float 

generic  float 
generic  float 


Defines  data  type  for  incoming 
signals  to  integrator. 
Defines  data  type  for  signals 
output  from  integrator 
Defines  data  type  for  incoming 
signal  after  gain  applied 
Defines  data  type  for  gains 
Defines  data  type  of  time 
interval 
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Data  Objects: 


The  following  table  describes 

the  generic  formal  objects  required  by 

|  Name 

1  Type 

1 

Description  | 

|  Initial  Signal 

|  Signals 

1 

Initial  value  of  input  signal  | 

|  Level 

1 

for  first  pass.  j 

|  Initial  Output 

|  States 

1 

Initial  values  of  output 

j  Level 

1 

signal  after  first  pass. 

j  Initial  Output 

j  States 

1 

Initial  value  of  lower  limit  j 

1  Lower  Limit 

1 

on  integrator  output.  j 

Initial  Output 

j  States 

1 

Initial  value  of  upper  limit  | 

j  Upper  Limit 

1 

on  integrator  output. 

|  Initial  Time 

j  Times 

1 

Initial  value  of  time  interval! 

j  Inteval 

1 

for  integration  j 

j  Initial 

j  Gains 

1 

Initial  value  of  gain  used 

j  Tustin  Gain 

1 

Tustin  integration 

Subprograms: 

The  following  table  shows  the 

generic 

formal  objects  required  by  this 

|  Name 

1  Type 

1 

Description  | 

|  "*" 

|  Function 

1 

Signals  *  Gains  | 

1 

j 

1 

return  Gained  Signals  j 

j 

j  Function 

1 

Gained  Signals  *  Times  j 

1 

! 

! 

return  States  | 

3.6.8.6.9.10.3  INPUT/OUTPUT 


None. 


3.6.8.6.9.10.4  LOCAL  ENTITIES 


Data  Structures: 

Must  internally  store  gains  and  previous  input  and  output  signals 
Subprograms: 

Must  perform  limit  operation  and  flag  setting  as  specified  in  R108  and 
integrator  specified  in  R124.  Must  perform  initialization  of  gain,  previous 
input  signal,  previous  output  signal,  and  limit. 

Packages : 

Must  implement  a  local  integrate  and  limit  function.  Uses  the  Absolute_Limit_ 
Uith_Flag  package  for  limit,  and  the  General_Math. Integrator  package  for  these 
operations. 
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3.6.8.6.9.10.5  INTERRUPTS 


None. 


3.6.8.6.9.10.6  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 
with  SignalProcessing,  Autopilot_Data_Types; 
procedure  USER  is 

type  CommandSignals  is  new  Autopilot_Data_Types.Roll_Commands; 
type  Command_Gains  is  new 

AutopilotDataTypes  .Degrees_To_Degrees_Per_Second_Gains ; 
type  Gained_Command_Signals  is  new 

Autopilot_Data_Types.Feedback_Rates_Degrees; 
package  Command_Integrator  is  new 

Signal  Processing. Tustin  Integrator  With  Assymetric  Limit 


>  Command  Signals, 

=>  Comman3_Gains , 

=>  Gained_Command_Signals , 
=>  Seconds, 

Command_Signals , 

0.0, 


(Signal_Type 
Gains 

Gained_Signals 
Time_Type 

Output  Type  => 

InitiaI_Tustin_Gain  => 

Initial_Signal_Level  *>  0.0, 

Initial_Output_Level  »>  0.0, 

Initial_Time_Interval  *>  1.0/64.0, 
Initial_Output_Lower_Limit  =>  -5.0); 
Initial_Output  Upper_Limit  *>  4.0); 

Command  :  Command_Slgnals ; 

Integrated_Signal  j  Command_Signals; 
begin 

Integrated_Signal  :*  Command_Integrator. Integrate  (Command); 
Command_Integrator.  Update  Integration_Coefficient 
(NewLowerLimit  =>  2.5); 
end  USER; 


3.6.8.6.9.10.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.6.9.10.8  DECOMPOSITION 
Subprograms: 

The  following  table  shows  the  generic  formal  subroutines  required  by  this  part: 
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Name 


I  Type 


Descripti on 


|  Update  Limits 

1  '  1 

Procedure 

1 

|  Update  Upper  Limit  | 

Procedure  | 

|  Update  Gain  ! 

Procedure 

1  1 

|  Integrate 

1  1 

Function  | 

1  1 
|  Reset  | 

1 

Procedure  j 

Updates  lower  and  uppper  limits  on 
integrator  output. 

Updates  upper  limit  on  integrator 
output . 

Updates  gain  on  input  signal 

Returns  integrated  value  of  input. 

Resets  integrator  state  and  previous 
input  to  new  values 


3.6.8.6.9.10.9  PART  DESIGN 


None . 
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package  SignalProcessing  is 


—  Exported  Data  Type- 


—  Purpose: 

This  data  type  will  be  used  in  the  Absolute  Line  ter  and  Tustin  Integrator 
Packages.  An  object  of  this  type  will  be  set  to  indicate  if  a  signal 
coming  into  the  limiter  is  between  the  upper  and  loner  limits 
(WITHIN  LIMIT),  above  the  upper  limit  (AT POSITIVE  LIMIT),  or  below  the 
lower  limit  (A  T  NEC A  TIVE  LIMIT) . 

—  Requirements  trace: 

This  type  meets  requirements  for  parts  R202  (SRS  .?.  4.5.  7. 1 1  (b)) 

type  Limit_Relations  is  (Vithin_Limit ,  At_Posi tive  Limit ,  At_Negative_Limit) ; 

pragma  PAGE; 
generic 

type  Signal_Type  is  digits  <>; 

Initial_Upper_Limit  :  in  Signal_Type; 

Initial_Lower_Limit  :  in  Signal_Type; 
package  Upper_Lover_Limiter  is 

procedure  Update_Limits  (New_Upper_Limi  t  :  in  Signal_Type; 

Nev_Lover_Limit  :  in  Signal_Type) ; 

function  Limit  (Signal  ;  SignalType)  return  SignalType; 

Limit_Exception:  exception; 

end  Upper_Lover_Limiter; 

pragma  PAGE; 
generic 

type  Signal_Type  is  digits  <>; 

Initial_Upper_Limit  :  in  Signal_Type; 
package  Upper_LimIter  is 

procedure  UpdateLimit  (Nev_Upper_Limit  :  in  Signal_Type) ; 

function  Limit  (Signal  :  Signal_Type)  return  SignalType; 

end  UpperLimiter; 

pragma  PAGE; 
generic 

type  Signal_Type  is  digits  <>; 

Initial_Lower_Limit  :  in  Signal_Type; 
package  Lower_Limi  ter  is 

procedure  Update_Limit  (Nev_Lower_Limi  t  :  in  Signal_Type) ; 
function  Limit  (Signal  :  Signal_Type)  return  Signal_Type; 


end  Lower  Limiter; 
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pragma  PAGE; 
generic 

type  SignalJType  is  digits  <>; 

Ini tial_Absolute_Limi t  :  in  Signal_Type; 
package  Absolute_Limiter  is 

procedure  Update  Limit  (Nev_Absolute_Limi t  :  in  Signal  Type) ; 
function  Limit  (Signal  :  Signal_Type)  return  Signal_Type; 
end  Absolute  Limiter; 


pragma  PAGE; 
generic 

type  SignalType  is  digits  <>; 

InitialAbsoluteLimit  :  in  SignalType; 
package  Absolute_Limiter_With_Flag  is 

procedure  UpdateLimit  (Nev_Absolute_Limi t  :  in  SignalType) ; 

function  Limit_Flag_Setting  return  LimitRelations; 

function  Limit  (Signal  :  Signal_Type)  return  Signal_Type; 

end  Absolute_Limiter_Vith_Flag; 


pragma  PAGE; 
generic 

type  SignalJType  is  digits  <>; 
type  Coeff icientType  is  digits  <>; 

Initial_Previous_Input_Signal  :  in  SignalJType; 

InitialCoeff icientl  :  in  Coeff icientJType; 

Ini' i jl_Coef f icient_2  :  in  Coeff icientJType; 

Initial_Coefficient_3  :  in  Coeff icientJType; 

with  function  (Left  :  SignalJType;  Right  :  Coeff icient_Type) 
return  SignalJType  is  <>; 

with  function  "/"~(Left  :  in  SignalJType;  Right  :  in  Coeff icientJType) 
return  SignalJType  is  <>; 
package  General_First_Order  Filter  is 

procedure  Update  Coeff icients  (New  Coeff icient_l  :  in  Coef ficientJType; 

New_Coef f icient_2  :  in  Cc  f f icientJType; 
New_Coef f icient~3  :  in  Coeff icientType) ; 

function  Filter  (Signal  :  SignalJType)  return  SignalJType; 

end  General_First_Order_Filter ; 

pragma  PAGE; 
generic 

type  SignalJType  is  digits  <>; 
type  Coeff icientType  is  digits  <>; 

Initial_Previous~Input_Signal  :  in  SignalJType; 
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Initial_Coefficient_l  :  in  Coef f icientType; 

Ini tial_Coef f icient_2  :  in  Coef f icient_Type; 

with  function  (Left  .  Signal_Type;  Right  :  Coef f icientType) 
return  Signal  Type  is  <> ; 
package  Tustin_Lead_Lag_Filter  is 

procedure  Update_Coef f icients  (Nev_Coef f icient_l  :  in  Coefficient_Type; 

Nev_Coef f icient_2  :  in  Coef f icientType) ; 

function  Filter  (Signal  :  Signal_Type)  return  Signal_Type; 

end  Tustin_Lead_Lag_Filter; 


pragma  PAGE; 
generic 

type  SignalType  is  digits  <>; 
type  Coef f icientType  is  digits  <>; 

Initial_Previous_Input_Signal  :  in  Signal_Type; 

Ini tialCoef f icientl  :  in  Coef f icientType; 

Ini tial_Coef f icient_2  :  in  Coef f icientType; 

with  function  (Left  :  Signal_Type;  Right  :  Coef f icientType) 
return  Signal  Type  is  <>; 
package  Tustin_Lag_FiIter  is 


procedure  UpdateCoeff icients  (New  Coef f icient_l  s  in  Coefficient_Type; 

Nev_Coefficient~2  s  in  Coeff icient~Type) ; 

function  Filter  (Signal  :  SignalType)  return  Signal_Type; 

end  Tustin_Lag_Filter; 


pragma  PAGE; 
generic 

type  Signal_Type  is  digits  <>; 
type  Coef f icientType  is  digits  <>; 

Initial_Previous_Input  Signal  :  in  Signal_Type; 
Initial_Coefficient_De?ining_Parameter_l:  in  Coefficient_Type; 
Initial_Coefficient_Defining_Parameter_2:  in  Coefficient_Type; 
with  function  "*"  (Left  :  Signal_Type;  Right  :  Coeff icient_Type) 
return  Signal_Type  is  <>; 
package  SecondOrderFilter  is 

procedure  Redefine_Coefficients 

(New_Coefficient_Def ining_Parameter_l  :  in  Coef f icient_Type; 
New_Coeff icient_Def ining_Parameter_2  :  in  Coeff icient_Type)  ; 


function  Filter  (Signal  :  Signal_Type)  return  Signal_Type; 
end  Second  Order  Filter; 


pragma  PAGE ; 

'  *  generic 

type  Signals 


is  digits  <>; 
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type  States  is  digits  <> ; 

type  GainedSignals  is  digits  <>; 

type  Gains  is  digits  <>; 

Ini tial_Tustin_Gain  :  in  Gains; 

Ini tial_Signal_Level  :  in  Signals; 

Ini tial_State  :  in  States  :=  0.0; 

Ini tial_Signal_Limit  :  in  States; 

with  function  (Left  :  Signals; 

Right  :  Gains)  return  GainedSignal s  is  <>; 
with  function  (Left  :  Gained_Signals; 

Right  :  States)  return  States  is  <>; 
package  Tustin_Integrator_Vith  Limit  is 

procedure  Update_Limit  (Nev_Absolute_Limi t  :  in  States); 

procedure  Update  Gain  (NevGain  :  in  Gains); 

function  Integrate  (Signal  :  Signals)  return  States; 

procedure  RESET  (IntegratorState  :  in  States; 

Signal  :  in  Signals); 

function  Limit_Flag_Setting  return  Limit_Relations; 

end  Tustin_Integrator_With_Limit ; 

pragma  PAGE; 
generic 

type  Signals  is  digits  <>; 

type  States  is  digits  <>; 

type  Gained_Signals  is  digits  <>; 

type  Gains  is  digits  <>; 

Initial_Tustin_Gain  :  in  Gains; 

Initial_Signal_Level  :  in  Signals; 

InitialState  :  in  States  :=  0.0; 

InitialSignalLowerLimi  t  :  in  States; 
Initial_Signal_Upper_Limit  :  in  States; 

with  function  (Left  :  Signals; 

Right  :  Gains)  return  Gained_Signals  is  <>; 
with  function  (Left  :  Gained_Signals; 

Right  :  States)  return  States  is  <>; 

package  Tustin_Integrator_Uith_Asymmetric_Limit  is 

procedure  Update_Limits  (Nev_Lover_Limit  s  in  States; 

New  Upper_Limit  :  in  States); 

procedure  Update_Gain  (New_Gain  :  in  Gains); 

function  Integrate  (Signal  :  Signals)  return  States; 

procedure  RESET  (Integrator_State  :  in  States; 

Signal  ~  :  in  Signals); 

function  Limit_Flag_Setting  return  Limi t_Relations; 
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end  Tustin_Integrator_Vith_Asymmetric_Limi t : 


end  SignalProcessing; 
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3.6.8.?  GENERAL  PURPOSE  MATH  (SPECIFICATION)  TLCSC  (CATALOG  # PI 1-0) 

This  TLCSC  is  a  package  which  consists  of  two  types  of  subpackages:  generic 
packages  and  simple  packages  which  contain  generic  functions.  As  a  group,  the 
subpackages  provide  the  general  purpose  math  routines  required  by  the  rest  of 
the  CAMP  parts. 


3. 6. 8. 7.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
TLCSC: 


|  Name 

|  Requirements  Allocation  | 

|  Lookup  Table  Even  Spacing 

|  R118 

|  Lookup  Table  Uneven  Spacing 
j  Two  Way  Table  Lookup 

j  R119 

1 

j  Incrementor 

|  R120 

j  Decrementor 

|  R121 

j  Running  Average 

|  R142 

j  Change  Calculator 

j  R113 

j  Accumulator 

j  R114 

j  Change  Accumulator 

|  R115 

l  Integrator 

|  R124 

|  Interpolate  or  Extrapolate 

j  R116,  R117 

j  Square  Root 

|  R123 

j  Root  Sum  Of  Squares 

|  R122 

I  Sign 

|  R224 

j  Mean  Value 

j  R144 

j  Mean  Absolute  Difference 

|  R143 

3. 6. 8. 7. 2  INPUT/OUTPUT 
None. 

3. 6. 8. 7. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 8. 7. 4  LOCAL  ENTITIES 
None. 

3. 6. 8. 7. 5  INTERRUPTS 


None. 
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3. 6. 8. 7. 6  TIMING  AND  SEQUENCING 
None . 


3. 6.8. 7. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 8. 7. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  TLCSC: 


Name 


Type  |  Description 


Lookup_Table_ 

EvenSpacing 


generic 

package 


Lookup_Table_ 
Uneven  Spacing 


generic 

package 


Tvo_Vay_Table 

Lookup 


generic 

package 


Incrementor 

Decrementor 

Running_Average 

Integrator 

Interpolate_or_ 
Extrapolate 
Square  Root 

Root_Sum_of_ 

Squares 


generic 

package 

generic 

package 

generic 

package 

generic 

package 

generic 

function 

generic 

package 

generic 

function 


Sign 

MeanValue 

Mean  Absolute 
Difference 


generic 

function 

generic 

function 

generic 

function 


Provides  the  capability  to  reinitialize  and 
search  through  a  table  of  unevenly  spaced 
dependent  and  independent  values 
Provides  the  capability  to  initialize  and 
search  through  a  table  of  evenly  spaced 
independent  and  dependent  value 
Provides  the  capability  to  initialize  and 
search  through  a  table  for  either  dependent 
or  independent  values 
Provides  the  capability  to  initialize, 
increment,  and  read  a  value. 

Provides  the  capability  to  initialize, 
decrement,  and  read  a  value. 

Provides  the  capability  to  maintain  a 
running  average. 

Provides  the  capability  to  integrate 
a  variable  across  time 
Returns  value  interpolated  or  extrapolated 
with  two  independent  values 
Contains  a  function  which  returns  the 
square  root  of  an  input  value 
Returns  the  root  sum  of  three 
squared  values,  i.e., 

Sqrt  (X**2  +  Y**2  +  Z**2) 

Returns  -1  if  <  0,  1  if  >=  0 

Returns  the  average  value  of  a  vector  of 
numbers 

Returns  average  absolute  difference  between 
a  series  of  numbers  and  their  average  j 


3. 6. 8. 7. 9  PART  DESIGN 
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3. 6. 8. 7. 9.1  LOOKUP_TABLE_EVEN_SPACING  (CATALOG  IP12-0) 

This  LICSC,  which  is  designed  as  an  Ada  generic  package,  provides  the  ability 
to  initialize  and  search  through  a  table  of  independent  and  dependent  values 
which  are  evenly  spaced.  An  initialization  routine  is  provided  to  allow  for 
run-time  initialization  of  the  table.  However,  since  the  table  is  exported  in 

the  package  specification,  it  may  also  be  initialized  at  compilation  time.  A 

search  routine  is  provided  to  access  sets  of  data  in  the  table.  The  search 

will  key  on  an  independent  value.  If  the  independent  value  falls  in  the  range 

covered  by  the  table,  the  immediately  higher  and  lower  independent  values, 
along  with  the  corresponding  dependent  values,  will  be  returned.  If  the 
independent  value  falls  outside  the  range  covered  by  the  table,  the  two  closest 
independent  values,  along  with  the  corresponding  dependent  values,  will  be 
returned. 

The  exception  "Value  0ut_0f_Range"  is  created  if  Key  for  Lookup  (without  flag) 
is  outside  of  the  TaUle  range 


3. 6. 8. 7. 9. 1.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R118. 

3. 6. 8. 7. 9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Base  Type  |  Description  i 


| Dependent  Type  | generic  float | Type  for  the  dependent  variable  | 
j Independent  Type  | generic  float j Type  for  the  independent  variable! 
|Index_Type  | discrete  I  Type  for  the  lookup  table  index  j 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

|  Type  |Mode 

|  Description  | 

| Minimum  Independnt 

|  Independent | 

in 

lvalue  of  the  first  independent! 

Value 

Type 

table  value  | 

| Maximum  Independnt | Independent | 

in 

(value  of  the  last  independent  | 

|  Value 

1  _Type  | 

j  table  value  j 

Subprograms: 
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The  folloving  table  describes  the  generic  formal  subprograms  required  by  this 
LLCSC: 


|  Name 

1  Type 

|  Description  | 

|  »*" 

! 

| function 

1 

|  Independent  Type  :=  Index  Type  *  j 

j  Independent  Type  1 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Exceptions: 

The  folloving  chart  describes  the  exceptions  exported  by  this  LLCSC: 


|  Name 

|  Raised  By 

|  Description  | 

|Value  Out  Of 
j  Range 

| Lookup 

1 

|  The  input  value  has  mapped  to  outside  | 

|  the  table  range.  j 

Data  types: 

The  folloving  chart  describes  the  data  types  exported  by  this  LLCSC: 


|  Name  | 

Range 

|  Operators 

|  Description  | 

| KeyRange | 

1  _Flag  j 

N/A 

|  None 

! 

{Specifies  whether  the  req.  | 
j  key  is  in  table  range 

3.6.8. 7.9. 1.3  LOCAL  ENTITIES 


None. 


3. 6. 8. 7. 9. 1.4  INTERRUPTS 


None. 


3. 6. 8. 7. 9. 1.5  TIMING  AND  SEQUENCING 

The  folloving  code  illustrates  a  sample  use  of  this  part: 

vith  General_Purpose_Math; 
procedure  Test  is 

type  Dep_Type  is  digits  6; 
type  Ind_Type  is  digits  6; 
type  Index  is  range  1  ..  3; 


Lover_Dep_Value  :  Dep_Type; 
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Higher_Dep_Value  :  Dep_Type; 

Lover_Ind  Value  :  Ind_Type; 

Higher_Ind_Value  :  Ind_Type; 

package  Table  is  new  General_Purpose_Math. Lookup_Table_Even_Spacing 
(Dependent_Type  =>  Dep_Type, 

Independent_Type  =>  Ind_Type, 

Table_Range  =>  Index, 

Minimum_Independent_Value  =>  10.0, 
Maximum_Independent_Value  =>  30.0); 

begin 

Table. Ini tialize  (Index  =>  1,  Dependent_Value  =>  20.0); 

Table. Ini tialize  (Index  =>  2,  Dependent_Value  =>  50.0); 

Table. Initialize  (Index  =>  3,  Dependent_Value  =>  90.0); 

Table. Lookup  (Key  =>  45.0, 

Lower_Independent  =>  Lower_Ind, 

Higherlndependent  =>  Higher_Ind, 

LowerDependent  =>  LowerDep, 

Higher_Dependent  =>  Higher_Dep); 

end  Test; 


3. 6. 8. 7. 9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


|  Type  |  Description 


| Initialize 
j  Lookup 

I 

| Lookup 


| procedure  (Initialize  one  row  of  the  table 
jprocedure  |Do  a  table  lookup  (raise  exception  if 
j  j  key  is  outside  the  table  range) 

jprocedure  jDo  a  table  lookup  (return  flag  specifying 
j  j  whether  key  is  in  table  range) 


3. 6. 8. 7. 9. 1.8  PART  DESIGN 
None. 


3. 6. 8. 7. 9. 2  L00KUP_TABLE_UNEVEN_SPACING  (CATALOG  IP13-0) 

This  LLCSC,  which  is  designed  as  an  Ada  generic  package,  provides  the  ability 
to  initialize  and  search  through  a  table  of  independent  and  dependent  values 
which  are  unevenly  spaced.  An  initialization  routine  is  provided  to  allow  for 
run-time  initialization  of  the  table.  However,  since  the  table  is  exported  in 

the  package  specification,  it  may  also  be  initialized  at  compilation  time.  A 

search  routine  is  provided  to  access  sets  of  data  in  the  table.  The  search 

will  key  on  an  independent  value.  If  the  independent  value  falls  in  the  range 
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covered  by  the  table,  the  immediately  higher  and  lower  independent  values, 
along  with  the  corresponding  dependent  values,  will  be  returned.  If  the 
independent  value  falls  outside  the  range  covered  by  the  table,  the  two  closest 
independent  values,  along  with  the  corresponding  dependent  values,  will  be 
returned. 

The  exception  "Value_0ut_0f_Range"  is  created  if  Key  for  Lookup  (without  flag) 
is  outside  of  the  Table  range 


3. 6. 8. 7. 9. 2.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R119. 


3. 6. 8. 7. 9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |Base  Type  |  Description 


i 


I 


|Independent_Type  |gen.  float | Type  for  the  independent  variablel 
|Dependent_Type  jgen.  float |Type  for  the  dependent  variable  j 
|Index_Type  (discrete  |Type  for  the  table  index  ! 


EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Exceptions: 

The  following  chart  describes  the  exceptions  exported  by  this  LLCSC: 


|  Name 

|  Raised  By  | 

Description  | 

|Value_0ut_0f_ 

|  Range 

|  Lookup 

1  I 

The  input  value  has  mapped  to  outside  | 
the  table  range.  j 

Data  types: 

The  following  chart  describes  the 

data  types  exported  by  this  LLCSC: 

|  Name  j  Range 

|  Operators 

|  Description  | 

|Key  Range|  N/A 

1  Flag  1 

|TaSle_  J  N/A 

|  Entries! 

|  None 

1 

|  None 

1 

(Specifies  whether  the  req.  | 
key  is  in  table  range  j 

j Record  describing  the  makeup) 
j  of  one  table  entry  | 
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Data  objects: 

The  following  table  describes  the  data  objects  exported  by  this  part: 


|  Name 

!  Type 

|  Value 

|  Description  | 

| Table 

|  array 

|  N/A 

|  This  is  the  lookup  table  created 

3. 6. 8. 7. 9. 2. 3  LOCAL  ENTITIES 
None. 


3. 6. 8. 7. 9. 2. 4  INTERRUPTS 
None. 


3. 6. 8. 7. 9. 2. 5  TIMING  AND  SEQUENCING 


The  following  code  illustrates  a  sample  use  of  this  part: 


with  General_Purpose_Math; 
procedure  Sample  is 

type  Dep_Type  is  digits  6; 
type  Ind_Type  is  digits  6; 
type  Index  is  range  1  ..  3; 


Lover_Dep_Value 
Higher_Dep_Value 
Lower_Ind  Value 
Higher  IncfValue 


Dep_Type ; 
Dep_Type ; 
IndType ; 
Ind_Type ; 


package  Table  is  new  General_Purpose  Math. Lookup  Table_Uneven_Spacing 
(Dependent_Type  =>  Dep_Typi, 

Independent  Type  =>  Ind_Type, 

Table  Range  =>  Index); 


begin 

Table. Initialize  (Index  =>  1, 
Table. Initialize  (Index  =>  2, 
Table. Initialize  (Index  =>  3, 


Independent_Value  => 
Independent_Value  => 
Independent_Value  => 


10,  Dependent_Value  ■> 
15,  Dependent_Value  => 
25,  Dependent_Value  => 


1) 

2) 

3) 


Table. Lookup  (Key  =>  17, 

Lower  Independent  =>  Lower_Ind, 
Higher_Independent  =>  Higher_Ind, 
Lower_Dependent  =>  Lower_Dep, 
Higher  Dependent  =>  Higher_Dep); 


end  Test; 
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3. 6. 8. 7. 9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 2. 7  DECOMPOSITION 


The  following 

table  describes 

the  decomposition  of  this  part: 

|  Name 

1  Type 

(  Description  | 

(Initialize 
j  Lookup 

1 

| Lookup 

1 

| procedure 
j  procedure 

1 

(procedure 

1 

(Initialize  one  row  of  the  table  | 

|Do  a  table  lookup  (raise  exception  if  | 

key  is  outside  the  table  range)  | 

|Do  a  table  lookup  (return  flag  specifying! 

(  whether  key  is  in  table  range)  j 

3. 6. 8. 7. 9. 2. 8  PART  DESIGN 


None. 


3. 6. 8. 7. 9. 3  INCREMENTOR  (CATALOG  P14-0) 

This  generic  package  provides  the  capability  to  reinitialize  a  variable  that  is 
to  be  incremented,  select  a  value  to  be  used  as  an  incrementor,  and  increment 
the  variable  accordingly.  A  reinitialization  routine  is  provided  to 
reinitialize  the  variable  and  the  increment  amount.  An  increment  routine  is 
provided  to  do  the  actual  incrementing. 


3. 6. 8. 7. 9. 3.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R120. 


3. 6.8. 7. 9. 3. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 


The  following 

table  describes 

the  generic  formal  types 

required  by  this 

|  Name 

|  Base  Type 

(  Description 

1 

|Real  Type 

|gen.  float 

|  Type  of  the  incrementor 

variable  ( 

Data  objects: 
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The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|Mode 

|  Description  | 

|Initial  Value 

|Real  Type 

1  in 

|  Initial  incrementor  value  j 

| Increment  Amount 

|Real  Type 

1  in 

|  Amount  by  which  to  increment 

3. 6. 8. 7. 9. 3. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 7. 9. 3. 4  INTERRUPTS 


None. 


3. 6. 8. 7. 9. 3. 5  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Message_Tvpe  is  digits  6; 

Number_Of  Messages  :  Message_Type; 

package  Message  is  new  General  Purpose_Math.Incrementor 

(Real  Type  *>  Message_Type, 

InitTal_Value  «>  2.0, 
Increment_Amount  ■>  1.0); 

begin 

Number_Of_Messages  :=  Message. Increment ; 
end  Sample; 


3. 6. 8. 7. 9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 3. 7  DECOMPOSITION 


The  following 

table  describes 

the  decomposition  of  this  part: 

|  Name 

1  Type  | 

Description  | 

(Reinitialize 

(procedure  | 

Resets  the  incrementor  value  and  | 

1 

!  i 

increment  amount 

| Increment 

(function  | 

Increments  the  variable  and  returns  | 

1 

1  I 

its  new  value  | 
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3. 6. 8. 7. 9. 3. 8  PART  DESIGN 


None . 


3. 6. 8. 7. 9. 4  LECREMENTOR  (CATALOG  #P15-0) 

This  generic  package  provides  the  capability  to  reinitialize  a  variable  that  is 
to  be  decremented,  select  a  value  to  be  used  as  an  decrementor,  and  decrement 
the  variable  accordingly.  A  reinitialization  routine  is  provided  to 
reinitialize  the  variable  and  the  decrement  amount.  An  decrement  routine  is 
provided  to  do  the  actual  decrementing. 


3. 6. 8. 7. 9. 4.1  REQUIREMENTS  ALLOCATION 
This  LLCSC  meets  CAMP  requirement  R121. 


3. 6. 8. 7. 9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

|  Base  Type  | 

Description  | 

|Real  Type 

| generic  f loat | 

Type  of  the  decrementor  variable! 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|Mode 

|  Description  | 

|Initial  Value 

|Real  Type 

1  in 

| Initial  decrementor  value 

(Decrement  Amount 

j  Real_Type 

1  in 

j Amount  by  which  to  decrement 

3. 6. 8. 7. 9. 4. 3  LOCAL  ENTITIES 
None. 

3. 6. 8. 7. 9. 4. 4  INTERRUPTS 


None. 
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3. 6. 8. 7. 9. 4. 5  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Message_Type  is  digits  6; 

Number_Of_Messages  :  Message_Type; 

package  Message  is  new  General  Purpose_Math.Decrementor 

(Real  Type  =>  Message_Type, 

Initial  Value  =>  2.0, 
Increment_Amount  =>  1.0); 

begin 

NumberOfMessages  :=  Message. Decremen t ; 
end  Sample; 


3. 6. 8. 7. 9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LL.CSC. 


3. 6. 8. 7. 9. 4. 7  DECOMPOSITION 


The  following 

table  describes 

the  decomposition  of  this  part: 

|  Name 

1  Type  | 

Description  | 

(Reinitialize 

1 

(Decrement 

1 

| procedure  | 
1 

(function  ; 
1  1 

Resets  the  decrementor  value  and  | 

decrement  amount  j 

Decrements  the  variable  and  returns 
its  new  value  j 

3.6.8. 7. 9. 4. 8 

PART  DESIGN 

None. 


3. 6. 8. 7. 9. 5  RUNNINGAVERAGE  (CATALOG  #P16-0) 

This  generic  package  provides  the  capability  to  initialize  a  sum  and/or  a  count 
and  to  maintain  a  running  average.  A  reinitialization  routine  is  provided  to 
reinitialize  the  sum  and  count.  An  averaging  routine  is  provided  to  perform 
the  running  sum. 


3. 6. 8. 7. 9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R142 
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3. 6. 8. 7. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

|  Base  Type| 

Description  | 

|Real  Type 

|gen.  float | 

Type  of  the  running  average  var.  | 

Data  objects: 

The  following 

table  describes 

the  generic  formal  objects  required  by 

|  Name 

1  Type 

| Mode |  Description  | 

|Initial  Sum 
jlnitial  Count 

(Real  Type 
| INTEGER 

|  in  | Initial  running  sum  | 

j  in  jlnitial  #  of  data  points  j 

Subprograms: 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
LLCSC: 


|  Name 

1  Type 

|  Description  | 

|V" 

| function 

|  Real  Type  :=  Real  Type  /  Integer  | 

3  6. 8. 7. 9. 5. 3  LOCAL  ENTITIES 
None. 


3. 6. 8. 7. 9. 5. 4  INTERRUPTS 


None . 


3. 6. 8. 7. 9. 5. 5  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Test_Type  is  digits  6; 

New_Average  :  Test_Type; 

package  Test  is  new  General_Purpose_Math.Running_Average 
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(RealTypc  =>  Test_Tvpe, 
Initial_Sum  =>  25.0, 
Initial_Count  =>  5); 

begin 

Nev_Average  :=  Test .Current_Average  (Nev_Value  =>  11.0); 
end  Sample; 


3. 6. 8. 7. 9. 5. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 5. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description 

! 

(Reinitialize 
(Reinitialize 
| Current  Average 

( procedure 
|  procedure 
|  function 

|Sets  up  initial 
ISets  up  initial 
| Given  new  value, 

sum,  and  count  | 

count  | 

returns  new  average  j 

3. 6. 8. 7. 9. 5. 8  PART  DESIGN 
None. 

3. 6. 8. 7. 9. 6  ACCUMULATOR  (CATALOG  #P17-0) 

This  generic  package  provides  a  set  of  operations  for  maintaining  an 
accumulation  of  a  subject  variable. 

3. 6. 8. 7. 9. 6.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R114. 

3. 6. 8. 7. 9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  |  Base  Type  |  Description  | 

|Element_Type  Igeneric  float |Type  of  the  variable  being 
|  j  |  accumulated. 
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Data  objects: 


The  following  table 

describes 

the  generic  formal  objects 

required  by  this  part: 

|  Name 

!  Type 

|  Mode |  Description 

1 

|Initial  Value 

IReal  Type 

|  in  (Initial  accumulator 

value  | 

3. 6. 8. 7. 9. 6. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 7. 9. 6. 4  INTERRUPTS 


None. 


3. 6. 8. 7. 9. 6. 5  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  TestType  is  digits  6; 

Accumulator_Value  :  Test_Type; 

package  Test  is  new  General_Purpose_Math. Accumulator 

(Element  JFype  =>  Test  Type, 
Initial~Value  =>  25.07; 

begin 

Test .Accumulate  (New_Value  =>  10.0); 

Accumulator_Value  :=  Test .Retrieve; 
end  Sample; 


3. 6. 8. 7. 9. 6. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 6. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description 

1 

|Reinitiali ze 

j  procedure 

|Give  initial  value  for  accumulated  var. 

1 

(Accumulate 

j  procedure 

(Add  to  current  value  of  tracked  variable 

1 

(Accumulate 

j  procedure 

j  Add  to  current  accumulated  value  and 

1 

|  return  new  value 

(Retrieve 

|  function 

(Retrieve  current  accumulated  value 

1 
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3. 6. 8. 7. 9. 6. R  PART  DESIGN 
None . 

3.6.8. 7.9. 7  CHANGE_CALCULATOR  (CATALOG  #P18-0) 

This  generic  package  provides  a  set  of  operations  for  tracking  the  change  in  a 
given  variable. 

3. 6. 8. 7. 9. 7.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R113. 

3. 6. 8. 7. 9. 7. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  |  Base  Type  |  Description  | 

|Element_Type  | generic  float | Type  of  the  variable  being  trackd| 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

|  Type  | Mode |  Description  | 

|Initial  PV 

|Element  Typ|  in  |Initial  previous  value  | 

3. 6. 8. 7. 9. 7. 3 

LOCAL  ENTITIES 

None. 

3. 6. 8. 7. 9. 7. 4 

INTERRUPTS 

None. 

3. 6. 8. 7. 9. 7. 5 

TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 
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type  Test_Type  is  digits  6; 

Change_Value  :  Test_Type; 

package  Test  is  new  Qeneral_Purpose  Math.Change_Calculator 

(ElementType  =>  Test_Type, 

Ini tialValue  =>  25.0); 

begin 

Change_Value  :  =  Test. Change  (New_Value  =>  40.0), 
end  Sample; 


3. 6. 8. 7. 9. 7. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 7. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description 

1 

(Reinitialize 

| procedure 

|Reininitalize  value 

of 

tracked  variable 

j Change 

j  function 

j Return  change  since 

the 

last  call 

|Retrieve_Value 

| function 

j Return  current  value 

of 

tracked  variable 

3. 6. 8. 7. 9. 7. 8  PART  DESIGN 


None. 


3. 6. 8. 7. 9. 8  CHANGE_ACCUMULATOR  (CATALOG  #P19-0) 

This  generic  package  provides  a  set  of  operations  for  maintaining  an 
accumulation  of  a  change  to  a  subject  variable. 


3. 6. 8. 7. 9. 8.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R115. 


3. 6. 8. 7. 9. 8. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

|  Base  Type  | 

rescript i on 

| Element  Type 

1 

Igeneric  float (Type  of  the 
j  |  tracked 

variable  being  | 

and  accumulated.  j 

Data  objects: 

The  foil  owing  table  describes  the  generic  formal  objects  required  by  this  part: 

|  Name  |  Type  | Model  Description  | 

|Initial_PV  | Element_Typ |  in  | Ini tial  previous  value  | 

j InitialAccumula-  j Element_Typ j  in  jlnitial  accumulator  value 
|  tor_Value  III  I 


3. 6. 8. 7. 9. 8. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 7. 9. 8. 4  INTERRUPTS 
None. 


3. 6. 8. 7. 9. 8. 5  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  GeneralPurposeMath; 
procedure  Sample  is 

type  Test  Type  is  digits  6; 

Change_VaIue  :  Test_Type; 

package  Test  is  new  General_Purpose_Math.Change_Accumulator 

(Element_Type  ->  Test_Type, 

Initial_Previous_Value  *>  25.0, 
Initial_Accumulator  Value  =>  0.0); 

begin 

Test. Accumulate  (New_Value  =>  15.0); 

ChangeValue  :=  Test .Retrieve_Previous_Value; 
end  Sample; 


3. 6. 8. 7. 9. 8. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3. 6. 8. 7. 9. 8. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description 

(Reinitialize 

| procedure 

1 

|Give  initial  value  for  accumulator 
variable 

(Reinitialize 

1 

( procedure 

1 

jGive  initial  value  for  accumulator  and 
previous  value  variables 

(Accumulate  Change 

| procedure 

(Accumulate  the  change  in  the  variable 

(Accumulate  Change 

1 

| procedure 

1 

jAccumulate  the  change  in  the  variable  and 
j  return  new  value 

(Retrieve 
j  Accumulator 

| function 

1 

jReturn  current  accumulator  value 

1 

|Return  Previous 
j  Value 

| function 

1 

(Return  current  value  of  previous  value 
|  variable 

3. 6. 8. 7. 9. 8. 8  PART  DESIGN 


None. 


3. 6. 8. 7. 9. 9  INTEGRATOR  (CATALOG  #P20-0) 

This  generic  package  manages  a  data  value  and  allows  it  to  be  integrated  across 
time  by  means  of  a  trapezoidal  integration  technique. 


3. 6. 8. 7. 9. 9.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R124. 


3. 6. 8. 7. 9. 9. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Base  Type  |  Description  | 


| Dependent_Type  | generic  float (Type  of  the  dependent  variable  | 
j IndependentType  jgeneric  float |Type  of  the  independent  variable  | 
|Time_Interval  jgeneric  float jType  of  the  delta  time  variable  | 


Data  objects: 
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The  following  table  describes  the  genric  formal  object  required  by  this  part: 


|  Name 

Type 

Description  | 

|lnitial  Independ- 

Independent 

|Initial  value  for  independent  | 

j  ent  Value 

Type 

variable  j 

| Initial  Dependent 

Dependent 

| Ini t i a 1  value  for  dependent  | 

j  Value 

Type 

|  variable 

| Default  Delta  Time 

Time  Interval | Default  time  between  integration! 

Subprograms : 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
LLCSC: 


|  Name 

1  Type 

|  Description  | 

|  "*» 

1 

|  function 

1 

(Dependent  Type  :=  Independent_Type  j 

j  *  Time  Interval  j 

3. 6. 8. 7. 9. 9. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 7. 9. 9. 4  INTERRUPTS 


None. 


3. 6. 8. 7. 9. 9. 5  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Dependent  is  digits  6; 
type  Independent  is  digits  6; 

New_Dependent_Value  :  Dependent; 

package  Test  is  new  General_Purpose_Math. Integrator 

(Dependent_Type  =>  Dependent, 

Independent_Type  =>  Independent, 
Initial_Dependent_Value  =>  25.0, 
Initial_Independent_Value  =>  10.0, 
Default_Delta_Time  =>  0.1); 

begin 

New_Dependent_Value  :=  Test  .egrate  (Current_Independent_Value  =>  30.0); 
end  Sample; 
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3. 6. 8. 7. 9. 9. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 7. 9. 9. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description  | 

(Reinitialize 

| procedure 

|Give  initial  dependent  and  independent 

1 

j 

j  values 

| Update 

| procedure 

jGive  new  value  for  independent  value 

jlntegrate 

j  function 

jlntegrate  across  time 

3. 6. 8. 7. 9. 9. 8  PART  DESIGN 
None. 


3.6.8.7.9:10  INTERPOLATE  OR  EXTRAPOLATE  (CATALOG  IP21-0) 

This  part  is  a  generic  function  which  computes  the  linear  Interpolation  between 
two  values. 


3.6.8.7.9.10.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirements  R116  and  R117 


3.6.8.7.9.10.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  unit: 


Name  |  Base  Type 


Description 


| Independent_Type  |gener.  float | Type  of  the  independent  variables! 
|Dependent_Type  jgener.  float |Type  of  the  dependent  variable  j 
|Dependent  over_  jgener.  float jResult  of  Dependent  /  Independent) 
j  Indepen3ent  _Type |  I  | 


Subprograms: 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
uni  t : 
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!  Name 

1  Type 

|  Description 

! 

!  "/" 

1 

I  function 

|Dependent  Over  Independent  Type  := 
j  Dependent  Type  /  Independent  Type 

| 

| 

l 

I 

| function 

1 

(Dependent  Type  :=  Dependent  Over 

I  Independent  Type  *  Independent  Type 

1 

1 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

1 

Description  | 

|  Input 

(Independent  | 

in 

1 

Independent  value  for  which  a  | 

1 

1  ! 

1 

dependent  value  is  returned! 

| Lower  Independent 

| Independent  | 

in 

1 

Lower  independent  value  1 

j Higher  Independent 

(Independent  j 

in 

1 

Higher  independent  value  j 

| Lower  Dependent 

(Dependent 

in 

1 

Lower  dependent  value  j 

j Higher  Dependent 

(Dependent 

in 

1 

Higher  dependent  value 

j  <return  value> 

(Dependent  j 

out 

( 

Computed  interpolated  value  i 

3.6.8.7.9.10.3  INTERRUPTS 


None. 


3.6.8.7.9.10.4  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  GeneralPurposeMath; 
procedure  Sample  is 

type  Dependent  is  digits  6; 
type  Independent  is  digits  6; 

Key,  Lowerlnd,  Higherlnd  :  Independent; 

New_Dep,  Lower_Dep,  Higher_Dep  :  Dependent; 

function  Interp_or_Extrap  is  new 

General_Purpose_Math. Interpolate  or_Extrapolate 
(Dependent  Type  =>  Depen3ent, 

Independent_Type  =>  Independent); 

begin 

NewDep  :=  Interp_or_Extrap 

(Input  =>  Key, 

Lower_Dependent  =>  Lower_Dep, 

Higher_Dependent  =>  Higher_Dep, 

Lower_Independent  =>  Lover_Ind, 

Higher  Independent  =>  Higher  Ind); 


end  Sample; 
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3.6.8.7.9.10.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.7.9.10.6  DECOMPOSITION 


N/A 


3.6.8.7.9.11  SQUARE_R00T  (CATALOG  #P23-0) 

This  part  is  a  generic  package  which  computes  the  square  root  of  an  input 
value. 

The  Ada  predefined  exception  "Numeric_Error"  is  raised  if  "Input"  is  negative. 


3.6.8.7.9.11.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R123. 


3.6.8.7.9.11.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  unit: 


|  Name 

Type 

Description  | 

|  Inputs 
j  Outputs 
|  Real 

1 

floating  point 
floating  point 
floating  point 

Data  type  of  input  values  | 

Data  type  of  output  values  j 

Unconstrained  type  for  intermediate  | 

calculations  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

| Input 

| Squared 

1  in 

| Input  value  to  square  root  | 

1 

[  Type 

j  operation  j 

|<return  value> 

(Real  Type 

|  out 

jResult  of  square  root  operation  j 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 


Exceptions: 
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The  following  exceptions  are  exported  by  this  part: 


Name 

|  Description  | 

|  Negative  Input 

|  Input  to  the  Square  Root  function  was  negative  | 

3.6.8.7.9.11.3  LOCAL  ENTITIES 


Packages: 

The  body  of  this  part  instantiates  the  Square  Root  function  in  the  Polynomials 
package . 


3.6.8.7.9.11.4  INTERRUPTS 


None. 


3.6.8.7.9.11.5  TIMING  AND  SEQUENCING 


The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Sin  Cos_Ratio  is  digits  6  range  -1.0.. 1.0; 
type  Real  is  digits  6; 

Result  :  Sin_Cos_Ratio; 

Input  :  Sin_Cos_Ratio; 

package  My  is  new  General_Purpose_Math. Square_Root 

(Inputs  =>  Sin_Cos_Ratio, 
Outputs  =>  Sin  Cos_Ratio, 

Real  =>  Real); 

begin 

Result  :=  My.Sqrt  (Input  =>  Input); 
end  Sample; 


3.6.8.7.9.11.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.7.9.11.7  DECOMPOSITION 


None. 


3.6.8.7.9.11.8  PART  DESIGN 


None. 
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3.6.8.7.9.12  R00T_SUM_0F_SQUAP.ES  (CATALOG  #P24-0) 

This  unit  is  a  generic  function  which  computes  the  root  sum  of  three 
squares;  i.e.,  Result  :=  Sqrt  fX**2  +  Y**2  +  Z**2) 


3.6.8.7.9.12.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R122. 


3.6.8.7.9.12.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  unit: 


Name  |  Base  Type  |  Description  | 


|Real_Type  Igeneric  float |Type  of  input  and  result  variabls| 
j  Squared_Type  jgeneric  float |Type  of  intermediate  result  when  j 
i  j  j  a  "Real_Type"  is  squared 


Subprograms : 

The  following  table  describes  the  generic  formal  subprograms  required  by  this 
unit: 


|  Name  |  Type 


Description 


|  function  | Squared_Type  :=  Real_Type  *  Real_Type 
i  j  (used  to  perform  a  square  function) 

j  Sqrt  j function  |Real_Type  :=  Square  Root  (Squared_Type)  | 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description 

1 

ix 

|Real  Type 

in 

|First  of  the  three 

input  vars  f 

|Y 

|Real  Type 

|  in 

1  Second  of  the  three  input  vars 

|Z 

|Real  Type  | 

in 

|Third  of  the  three 

input  vars  | 

|<return  value> 

jReal  Type 

out 

|Resultant  root  sum 

of  squares  j 

( 


CAMP  Software  Top  Level  Design  Document 


Page  681 


3.6.8.7.9.12.3  INTERRUPTS 


None. 


3.6.8.7.9.12.4  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math,  Basic_Data_Types ; 
procedure  Sample  is 

package  BDT  renames  Basic_Data_Types; 

Result,  X,  Y,  Z  :  BDT.Feet_Per  Second; 

function  RSOS  is  new  General  Purpose_Math.Root_Sum_Of_Squares 

(ReaI_Type  =>  BDT.Feet_per_Second, 

Squared  Type  =>  BDT.Feet_Squared_Per_Second_Squared, 
=>  BDT."*",- 
Sqrt  =>  BDT.Sqrt); 

begin 

Result  :=  RSOS  (X  =>  X, 

Y  *>  Y, 

Z  ->  Z); 

end  Sample; 


3.6.8.7.9,12.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.7.9.12.6  DECOMPOSITION 
None. 


3.6.8.7.9.13  SIGN  (CATALOG  #P25-0) 

This  unit  is  a  generic  function  which  determines  the  sign  of  an  input  value;  it 
returns  -1  if  input  is  negative,  1  if  non-negative 


3.6.8.7.9.13.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R224. 


3.6.8.7.9.13.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  unit: 
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|  Name 

|  Base  Type  | 

Description  | 

|Real  Type 

Igeneric  float |Type  of 

input  variable  | 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type 

|  Mode 

|  Description  | 

|Input  Variable 
|<returned  value> 

|Real  Type 
j INTEGER 

1  1 

1  in 
|  out 

1 

|Input  to  sign  function  | 
j Integer  representing  the  sign  j 
|  of  Input_Variable  j 

3.6.8.7.9.13.3  INTERRUPTS 


None. 


3.6.8.7.9.13.4  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Real_Type  is  digits  6; 

Result  :  INTEGER; 

Input  :  Real_Type  :=  4.0; 

function  Sgn  is  new  General_Purpose_Math. Sign 

(Real_Type  =>  Real_Type); 

begin 

Result  :=  Sgn  (Input  =>  Input); 
end  Sample; 


3.6.8.7.9.13.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.7.9.13.6  DECOMPOSITION 


None . 


3.6.8.7.9.14  MEAN_VALUE  (CATALOG  #P26-0) 

This  unit  is  a  generic  function  which  computes  the  average  value  of  a  vector  of 
numbers. 
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3.6.8.7.9.14.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R144. 


3.6.8.7.9.14.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  unit: 


|  Name 

|  Base  Type 

(  Description  I 

| Element  Type 

| generic  float |Type  of  the  elements  averaged  | 

| Index  Type 

| Discrete 

(Type  of  index  to  vector  | 

jVector  Type 

(ARRAY 

(Array  of  "Element  Type"  with 

1 

1 

!  "Index  Type"  as  the  index 

FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

I  Type  | 

Mode 

|  Description  | 

• 

|Value  Vector 

| Vector  Type  | 

in 

(Values  to  be  averaged  ( 

|<return  value> 

| Element  Typej 

in 

(Average  of  input  values  ( 

3.6.8.7.9.14.3  INTERRUPTS 


None. 


3.6.8.7.9.14.4  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Elements  is  digits  6; 

type  Index  is  range  1  ..  10; 

type  Vector_Type  is  array  (Index)  of  Elements; 

My_Vector  :  Vector_Type  :=  (0,  5,  10,  15,  14,  13,  12,  11,  10,  20); 
Mean_Val  :  Elements; 

function  MV  is  new  General  Purpose_Math.Mean_Value 

(Element_Type  =>  Elements, 

IndexType  =>  Index, 

Vector  Type  =>  Vector_Type) ; 


begin 
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MeanVal  :=  MV  (Value_Vector  =>  My_Vector); 
end  Sample; 


3.6.8.7.9.14.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.7.9.14.6  DECOMPOSITION 
None. 


3.6.8.7.9.15  MEAN_ABSOLUTE_DIFFSRENCE  (CATALOG  #P27-0) 

This  unit  is  a  generic  function  which  computes  the  mean  absolute  difference 
(MAD)  of  a  vector,  i.e.,  Avg  (Abs  (Xi  -  Xavg)) 

3.6.8.7.9.15.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R143. 


3.6.8.7.9.15.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  unit: 


Name  |  Base  Type  |  Description  | 


|Element_Type  Igeneric  flout |Type  of  the  elements  averaged 
|Index_Type  j Discrete  |Type  of  index  to  vector  j 

|Vector_Type  j ARRAY  j Array  of  "Element_Type"  with 

j  j  |  "Index_Type"  as  the  index  j 


FORMAL  PARAMETERS: 

The  following  table  describes  this  unit's  formal  parameters: 


|  Name 

1  Type  | 

Mode 

|  Description  | 

|Value  Vector 

| Vector  Type  | 

in 

(Input  values  | 

|<return  value> 

(Element  Type] 

in 

j  MAD  of  input  vector 
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3.6.8.7.9.15.3  INTERRUPTS 


None. 


3.6.8.7.9.15.4  TIMING  AND  SEQUENCING 

The  following  code  illustrates  a  sample  use  of  this  part: 

with  General_Purpose_Math; 
procedure  Sample  is 

type  Elements  is  digits  6; 

type  Indc,.  is  range  1  .  10; 

type  Vector_Type  is  array  (Index)  of  Elements; 

My_Vector  :  VectorType  :=  (0,  5,  10,  15,  14,  13,  12,  11,  10,  20); 
MeanDif  :  Elements; 

function  MAD  is  new  General_Purpose_Math.Mean_Absolute_Difference 

(Element  Type~=>  Elements, 

Index_Type  *>  Index, 

VectorType  =>  Vector_Type) ; 

begin 

Mean_Dif  :=  MAD  (ValueVector  =>  My_Vector); 
end  Sample; 


3.6.8.7.9.15.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.8.7.9.15.6  DECOMPOSITION 
None. 


3.6.8.7.9.16  TV0_UAY_TABLE_L00KUP  (CATALOG  #P1077-0) 

This  package  provides  a  general  two  way  table  lookup.  These  routines  allow  the 
table  to  be  created  and  initialized,  or  an  already  existing  table  may  be  used. 
Either  variable  type  may  be  looked  up  in  the  table.  The  routines  return  a 
single  value,  interpolated  or  extrapolated  as  necessary. 


3.6.8.7.9.16.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  requirements  to  this  part: 


|  Name 


Requirements  Allocation 


I 


j  Two_Way_Table_Lookup  | 
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3.6.8.7.9.16.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Indices 
j  X  Values 
j  Y  Values 
j  Real 

INTEGER  or  Enumerated 
FLOAT 

FLOAT 

FLOAT 

|  Type  to  index  the  table  | 

|  Type  of  1  table  value 

j  Type  of  other  table  value  [ 

j  Type  for  intermediate  calculations  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name  |  Type  |  Description 


•I  /II 
II  /II 

n/n 
ii  /n 
ii*ii 
ii*ii 


function 

function 

function 

function 

function 

function 


Divide  operator  for  X_Values  /  Y_Values  =>  Real 

Divide  operator  for  YValues  /  X_Values  «>  Real 

Divide  operator  for  X~Values  /  X_Values  =>  Y_Values 

Divide  operator  for  Y_Values  /  Y_Values  =>  X_Values 

Multiply  operator  for  X_Values  *  Y_Values  «>  Real 
Multiply  operator  for  Y_Values  *  X_Values  =>  Real 


EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 
Data  types: 


The  following  chart 

describes  the  data  types  exported  by  this  part: 

|  Name  j  Range 

|  Description 

1 

|  X  Arrays  |  Indices 
j  Y  Arrays  j  Indices 
j  Tables  j  Indices 

|  Array  type  for  1  type  of  values  in 
j  Array  type  for  other  type  of  values 
j  Type  for  Table  of  X  and  Y  arrays 

table  | 

in  table 

1 

Data  objects: 

The  following  chart 

describes  the  data  objects  exported  by 

this  part: 

|  Name  |  Type  | 

Description 

1 

|  Table  |  record  | 

Table  of  X_Array  and  Y_Array  to  be  operated  on  | 
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3.6.8.7.9.16.3  LOCAL  ENTITIES 
None. 


3.6.8.7.9.16.4  INTERRUPTS 


None. 


3.6.8.7.9.16.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  General_Purpose_Math; 
procedure  sample  is 


package  GPM  renames  GeneralPurposeMath; 


type  IndexRange  is  range  1..50; 
type  My_Xs  is  array(  Index_Range  )  of  FLOAT; 
type  My_YS  is  array(  IndexRange  )  of  FLOAT; 
type  My_Tables  is 
record 

X  :  My_Xs; 

Y  :  My_Ys ; 
end  record; 

DegreeValue  :  FLOAT; 

Radian  Value  :  FLOAT; 

My_TabIe  :  My_Tables 


Lookup  is  new  GPM.Two_Way_Table_Lookup 


(  Indices 
X_Values 
Y_Values 
Real 


*>  IndexRange, 
=>  FLOAT, 

=>  FLOAT, 

=>  FLOAT  ); 


begin 

Lookup. Initialize(  Table  :  My_Table, 
Index  :  25, 

X  :  90.0, 

Y  :  1.570796  ); 
RadianValue  :=  Lookup. Lookup_Y(  Table 

Input 

DegreeValue  :=  Lookup. Lookup_X(  Table 

Input 

end  Sample; 


=>  My_Table, 

=>  90.0  ); 

=>  My  Table, 

=>  1.570796  ); 


3.6.8.7.9.16.6  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.8.7.9.16.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


Initialize  |  procedure 
1 

Lookup_Y  |  function 


Lookup_X 


function 


Allows  the  user  to  insert  an  X  value  and  a  Y  value 
at  a  particular  index  in  the  table 
Given  an  X  value,  this  function  finds  the 
corresponding  Y  value,  interpolating  or  extra¬ 
polating  as  necessary 
Given  a  Y  value,  this  function  find  the 
corresponding  X  value,  interpolating  or  extra¬ 
polating  as  necessary 


3.6.8.7.9.16.8  PART  DESIGN 


None. 
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package  General_Purpose_Math  is 

pragma  PAGE; 
generic 

type  IndependentType  is  digits  <>; 
type  Dependent  Type  is  digits  <>; 
type  IndexType  is  (O); 

Minimum_Independeut_Value  :  Independent_Type; 

Maximum_Independent_Vaiue  :  IndependentType; 
package  Lookup_Table_Even_Spacing  is 

ValueOutOf  Range  :  exception; 

type  Key  Range  Flag  is  (BelowTableRange ,  In_Table_Range ,  Above_Table_Range) ; 

type  Tables  is  array  (IndexType)  of  DependentType; 

procedure  Initialize  (Table  :  out  Tables; 

INDEX  :  in  Index  Type; 

DependentValue  :  in  Dependent  Type) ; 

procedure  Lookup  (Table  :  in  Tables; 

Key  :  in  Independent_Type; 

Lover  Independent  :  out  Independent_Type ; 

Higherlndependent  :  out  Independent_Type; 

Lover_Dependent  :  out  Dependent_Type; 

HigherDependent  :  out  Dependent  Type) ; 

procedure  Lookup  (Table  :  in  Tables; 

Key  :  in  IndependentType; 

Lover  Independent  :  out  Independent_Type; 

Higherlndependent  :  out  Independent_Type; 

LoverDependent  ;  out  DependentType; 

HigherDependent  :  out  DependentType; 

KeyLocation  ;  out  KeyRangeFlag) ; 

end  LookupTableEvenSpacing; 

pragma  PAGE; 
generic 

type  IndependentType  is  digits  <>; 
type  Dependent  Type  is  digits  <>; 
type  IndexType  is  (<>); 

package  Lookup_Table_Uneven_Spacing  is 

ValueOutOfRange  ;  exception; 

type  Key  Range  Flag  is  (Below  Table  Range,  In  Tabie  Range,  Above  Table  Range) ; 

type  TableEntries  is 
record 

Independent_Entry  :  IndependentType; 

Dependent  Entry  :  DependentType; 

end  record; 

type  Tables  is  array  (IndexType)  of  TableEntries; 
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procedure  Initialize  (Table 

INDEX 

Independent_Valtie 
Dependent  Value 


procedure  Lookup 


(Table 

Key 

Lover_Independent 
Higher_Independent 
Lover_Dependent 
Higher  Dependent 


procedure  Lookup  (Table 
Key 


out  Tables; 
in  Jndex_Type; 
in  Iridependent_Type ; 
in  Dependent_Type) : 


Lover_Independent 
Higher_Independent 
LoverDe pendent 
H i ghe  r_De  pendent 
KeyLocation 

end  Lookup_Table_Uneven_Spacing; 

pragma  PAGE; 
generic 

type  Real_Type  is  digits  <>; 
Initial_Value  :  in  Real_Type  :=  0.0; 
Increment_Amount  :  in  Real_Type  :*  1.0; 
package  Incrementor  is 


procedure  Reinitialize  (Initial_Value 

Increment_Amount 

function  Increment  return  Real  Type; 


in  Tables; 

in  IndependentType; 
out  Independent_Type; 
out  Independent_Type; 
out  Dependent_Type; 
out  Dependent_Type) ; 

in  Tables; 
in  IndependentType; 
out  Independent_Type; 
out  Independent  Type; 
out  DependentType; 
out  Dependent_Type; 
out  Key  Range  Flag); 


in  Real_Type; 
in  Real_Type); 


end  Incrementor; 


pragma  PAGE; 
generic 

type  Real_Type  is  digits  <>; 

InitialValue  :  in  Real_Type  :=  0.0; 

Decrement_Amount  :  in  Real_Type  :=  1.0; 
package  Decrementor  is 

procedure  Reinitialize  (Initial_Value  :  in  Real_Type; 

Decrement_Amount  :  in  Real_Type); 

function  Decrement  return  Real_Type; 

end  Decrementor; 


pragma  PAGE; 
generic 

type  Real_Type  is  digits  <>; 

Initial_Sum  :  in  Real_Type  :=  0.0; 

Initial_Count  :  in  INTEGER  :=  0; 
with  function  "/"  (Left  :  Real_Type;  Right  :  INTEGER) 
return  Real_Type  is  <>; 
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package  RunningAverage  is 

procedure  Reinitialize  (lnitial_Sum  :  in  Real_Type; 

Ini tial_Count  :  in  INTEGER); 

procedure  Reinitialize  (Ini tial_Count  :  in  INTEGER); 

function  Current_Average  (Nev_Value  :  Real_Type)  return  Real_Type; 
end  RunningAverage; 

pragma  PAGE; 
generic 

type  ElementType  is  digits  <>; 

Initial_Value  :  in  ElementType  :=  0.0; 
package  Accumulator  is 

procedure  Reinitialize  (InitialValue  :  in  ElementType) ; 

procedure  Accumulate  (Nev_Value  :  in  Element  Type); 

procedure  Accumulate  (NevValue  :  in  Element_Type; 

Retrieved_Value  :  out  Element_Type) ; 

function  Retrieve  return  Element_Type; 
end  Accumulator; 

pragma  PAGE; 
generic 

type  Element_Type  is  digits  <>; 

InitialJValue  :  in  Element_Type  :«=  0.0; 
package  Change_Calculator  is 

procedure  Reinitialize  (Initial_Value  :  in  Element_Type) ; 

function  Change  (NevValue  :  Element_Type)  return  Element_Type; 

function  Retrieve_Value  return  Element_Type; 
end  Change_Calculator; 

pragma  PAGE; 
generic 

type  Element_Type  is  digits  <>; 

Initial_Accumulator  Value  :  in  Element_Type  :=  0.0; 

Initial_Previous_VaTue  :  in  Element_Type  :=  0.0; 

package  Change_Accumulator  is 

procedure  Reinitialize  (Initial_Accumulator_Value  :  in  Element_Type) ; 

procedure  Reinitialize  (Initial_Accumulator  Value  :  in  Element_Type; 

Initial_Previous_VaIue  :  in  Element_Type) ; 

procedure  Accumulate_Change  (Nev_Value  :  in  Element_Type) ; 

procedure  Accumulate_Change  (New_Value  :  in  Element_Type; 
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Retrieved  Accumulator  Value  :  out  Element  Type); 


function  Retrieve_Accumulation  return  ElementType; 

function  Retrieve_Previous_Value  return  Element_Type; 

end  ChangeAccumulator; 

pragma  PAGE; 
generic 

type  DependentType  is  digits  <>; 
type  Independent_Type  is  digits  <>; 
type  Timelnterval  is  digits  <>; 

Initial_Dependent_Value  :  in  Dependent_Type; 

Ini tiallndependentValue  :  in  Independent_Type; 

Default_Delta_Time  :  in  Time_Interval; 

vith  function  (Left  :  Independent_Type;  Right  :  Time_Interval) 
return  Dependent_Type  is  <>; 

package  Integrator  is 


procedure  Reinitialize  (InitialDependentValue  :  in  Dependent_Type; 

Initial_Independent_Value  :  in  Independent_Type) ; 


procedure  Update  (Current_Independent_Value  :  in  Independent_Type) ; 


function  Integrate  (Current  Independent_Value  :  Independent_Type; 

Delta_Tlme  s  Time_Interval 

:  =  Default  Delta  Time) 


return  Dependent_Type; 


end  Integrator; 

pragma  PAGE; 
generic 

type  Independent_Type  is  digits  <>; 

type  Dependent  Type  is  digits  <>; 

vith  function  "/"  (Left  :  Independent_Type; 

Right  :  Independent_Type) 
return  Dependent_Type  is  <>; 
function  Interpolate_Or_Extrapolate 

(Input  -  :  in  Independent_Type; 

Lover_Independent  :  in  Independent_Type; 
Higher  Independent  :  in  IndependentJType; 
Lover_Dependent  :  in  Dependent_Type; 
Higher_Dependent  :  in  Dependent_Type) 
return  Dependent  Type; 


pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 
type  Outputs  is  digits  <>, 
type  Real  is  digits  <>; 
package  Square_Root  is 

Negative_Input  :  exception; 

function  Sqrt  (Input  s  Inputs)  return  Outputs; 
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end  Square_Root; 

pragma  PAGE; 
generic 

type  RealType  is  digits  <>; 
type  Squared_Type  is  digits  <>; 

with  function  (Left  :  Real_Type;  Right  :  Real_Type) 
return  Squared_Type  is  <>; 

with  function  Sqrt  (Input  :  Squared_Type)  return  Real_Type  is  <>; 
function  Root_Sum_Of_Squares  (X  :  Real_Type; 

Y  :  Real_Type; 

Z  :  Real_Type) 
return  Real_Type; 


pragma  PAGE; 
generic 

type  RealType  is  digits  <>; 
function  Sign  (InputVariable  :  RealType) 
return  INTEGER; 


pragma  PAGE; 
generic 

type  Element_Type  is  digits  <>; 
type  Index_Type  is  (<>); 

type  Vector_Type  is  array  (Index_Type  range  <>)  of  Element_Type; 
function  MeanValue  (ValueVector  :  VectorType)  return  ElementType; 

pragma  PAGE ; 
generic 

type  Element_Type  is  digits  <>; 
type  Index_Type  is  (<>); 

type  Vector_Type  is  array  (IndexType  range  <>)  of  Element_Type; 
function  Mean_Absolute_Difference  (Value_Vector  :  Vector_Type) 

return  Element  Type; 


pragma  PAGE; 


generic 

type 

Indices 

is 

(<>); 

type 

X  Values 

is  digits  <>; 

type 

Y  Values 

is  digits  <>; 

type 

Real 

is  digits  <>; 

with 

function 

ft  J\\ 

(Left 

X_Values ; 

Right 

Y  Values) 

return  Real 

is 

<> 

with 

function 

fl  i  If 

(Left 

Y_Values; 

Right 

X~Values) 

return  Real 

is 

<> 

with 

function 

If  /I! 

(Left 

X_Values; 

Right 

X_Values) 

return  Y  Values 

is 

<> 

with 

function 

It  J  H 

(Left 

Y  Values; 

Right 

Y  Values) 

return  X_Values 

is 

<> 

wi  th 

function 

11*11 

(Left 

X_Values ; 

Right 

Y  Values) 

return  Real 

is 

<> 

with 

function 

If  *11 

(Left 

Y  Values; 

Right 

X  Values) 

return  Real 

is 

<> 

package 

Two  Vay_Table  Lookup 

is 
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type  X_Arrays  is  array(  Indices  )  of  XValues; 
type  Y_Arrays  is  array(  Indices  )  of  Y_Values; 

type  Tables  is 
record 


Table  X  : 
Table_Y  : 
end  record; 

X  Arrays; 

Y  Arrays; 

Table  :  Tables; 

procedure  Initialize(  Table  : 

out 

Tables; 

INDEX  : 

in 

Indices; 

X  : 

in 

X  Values; 

Y  : 

in 

Y_Values) ; 

function  Lookup_Y  (  Table  :  Tables; 

Input  :  XValues  )  return  YValues; 

function  LookupX  (  Table  :  Tables; 

Input  :  YValues  )  return  XValues; 

end  Tvo_Way_Table_Lookup; 


end  General_Purpose_Math; 
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3. 6. 8. 8  POLYNOMIALS  TLCSC  (CATALOG  #P885-0) 

This  part  is  a  package  of  packages.  It  contains  specifications  for  all  the 
polynomial  functions  required  by  the  rest  of  the  CAMP  parts. 

Each  subpackage,  except  General_Polynomial,  contains  function(s)  for  one  type 
of  polynomial  (i.e.  Hastings,  Taylor  series,  etc.).  There  is  also  a  package, 
System_Functions,  which  provides  access  to  the  Ada  system  run-time  math 
library. 

These  parts  provide  standard  mathematical  functions  such  as  trigonometric 
and  square  root  functions.  For  these  parts,  the  term  "standard  mathematical 
functions"  refers  to: 
o  Sine  (x) 
o  Cosine  (x) 
o  Tangent  (x) 
o  Arcsine  (x) 
o  Arccosine  (x) 
o  Arctangent  (x) 
o  Square  root  (x) 
o  Log  base  10  (x) 
o  Log  base  n  (x) 

These  functions  can  be  accessed  in  one  of  the  following  ways: 
o  A  standard  set  of  polynomial  solutions  can  be  obtained  by 
with'ing  the  Basic  Data  types  part  (P621)  or  instantiation 
of  the  Trigonometric  part  (P683). 
o  Selected  polynomial  solutions  may  be  obtained  by  with'ing  the 
Polynomial  part  and  instantiating  the  desired  functions  or 
packages . 

In  addition,  a  General_Polynomial  package  is  provided  which  allows  the  creation 
of  a  user-defined  polynomial  function. 

Many  of  these  packages  have  functions  which  are  identical  except  for  the  number 
of  terms  used  in  the  calculations.  These  functions  run  from  4  term 
calculations  to  8  term  calculations.  These  functions  can  be  instantiated  with 
parameters  which  are  either  single  or  extended  precision.  However,  the 
algorithms  are  such  that  only  a  certain  amount  of  precision  can  be  generated 
regardless  of  single  or  extended  precision  usage.  The  following  general  rules 
should  be  applied  when  determining  whether  to  instantiate  with  single  or 
extended  precision. 

o  Single  precision  functions  should  NOT  be  instantiated  with  MORE  than  5 
terms.  Using  single  precision,  no  more  precision  is  generated  using 
more  than  5  terms. 

o  Extended  precision  functions  should  NOT  be  instantiated  with  LESS  than 
5  terms.  More  precision  is  not  gained  by  using  extended  precision 
instead  of  single  precision  with  less  than  5  terms. 

o  Given  the  above  restrictions,  the  more  terms  a  function  has,  the 
greater  the  precision  of  the  result. 
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Exceptions  to  this  rule  are  the  square  root  functions,  which  have  from  2  to  5 
terms.  They  may  be  used  either  single  or  double  precision  without 
restrictions,  although  with  single  precision  the  higher  term  functions  will 
generate  more  precision  than  the  single  precision  variable  can  hold. 


3. 6. 8. 8.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  | 

Requirements  Allocation 

1 

|  Chebyshev  | 

R214 

1 

|  Cody  Waite  I 

1 

j  Continued  Fractions! 

j  Fike  j 

R215 

i 

|  General  Polynomial  j 

partially  meets  CAMP 

1 

requirements  R214  thru 

1 

!  1 

R222 

1 

j  Hart  i 

R216 

1 

j  Hastings  | 

R217 

1 

1  Modified  j 

R220 

| 

j  Newton  Raphson  j 

1 

j  Newton  Raphson  j 

R221 

1 

|  System  Functions  j 

R223 

1 

j  Taylor_Series  j 

R222 

1 

3. 6. 8. 8. 2  INPUT/OUTPUT 
None. 

3.6.8. 8. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3. 6. 8. 8. 4  LOCAL  ENTITIES 
None. 

3. 6. 8. 8. 5  INTERRUPTS 


None. 

3. 6. 8. 8. 6  TIMING  AND  SEQUENCING 


None. 
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3. 6. 8. 8. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 8. 8. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 

1  Type 

Chebyshev 

|  package 

1 

Continued_ 

Fractions 

|  package 

1 

| 

Cody  Waite 

|  package 

1 

Fike 

1 

|  package 

1 

Hart 

1 

|  package 

1 

Hastings 

1 

|  package 

1 

Modified_ 

Nevton_Raphson 

1 

|  package 

1 

Newton  Raphson 

1 

|  package 

1 

Taylor  Series 

1 

|  package 

1 

General 

Polynomial 

1 

|  generic 
j  package 

1 

System_Functions 

1 

|  package 

I 


Contains  generic  functions  providing 
Chebyshev  polynomial  solutions  to  a  set  of 
standard  mathematical  functions 
Contains  generic  functions  providing 
Continued  Fractions  polynomial  solutions 
for  the  tangent  and  arctangent  functions 
Contains  generic  functions  providing 
Cody  Waite  polynomial  solutions  to  a  set  of 
standard  mathematical  functions 
Contains  generic  functions  providing 
Fike  polynomial  solutions  to  a  set  of 
standard  mathematical  functions 
Contains  generic  functions  providing 
Hart  polynomial  solutions  to  a  set  of 
standard  mathematical  functions 
Contains  -generic  functions  providing 
Hastings  polynomial  solutions  to  a  set  of 
standard  mathematical  functions 
Contains  generic  functions  providing 
Modified  Newton-Raphson  polynomial  solutions 
to  a  set  of  standard  mathematical  functions 
Contains  generic  functions  providing 
Newton-Raphson  polynomial  solutions  to  a  set 
set  of  standard  mathematical  functions 
Contains  generic  functions  providing 
Taylor-Series  polynomial  solutions  to  a  set 
of  standard  mathematical  functions 
Allows  the  user  to  define  a  polynomial 
function  and  then  to  solve  the  user- 
polynomial  for  a  given  input  value 
Provides  access  to  the  Ada  system  library 
for  standard  mathematical  functions 


3. 6. 8. 8. 9  PART  DESIGN 

3. 6. 8. 8. 9.1  CHEBYSHEV  (CATALOG  #P886-0) 

This  package  contains  a  generic  function  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  Provisions  are  made  for  the  trigonometric 
functions  to  handle  units  of  radians,  semicircles,  or  degrees,  respectively. 
Outputs  are  of  type  sin_cos_ratio. 
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3. 6. 8. 8. 9. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name  |  Requirements  Allocation  | 

|  Chebyshev  |  R214  | 


3. 6. 8. 8. 9. 1.2  INPUT/OUTPUT 


None. 


3. 6. 8. 8. 9. 1.3  LOCAL  ENTITIES 


None. 


3. 6. 8. 8. 9. 1.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 1.5  TIMING  AND  -SEQUENCING 
None. 


3. 6. 8. 8. 9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


Chebyshev_ 

Radian 

Operations 


generic 

package 


Sine  functions  dealing  with  input  in  units  of 
radians 


Chebyshev_ 

Degree 

Operations 


generic 

package 


Sine  functions  dealing  with -input  in  units  of 
degrees 


Chebyshev 

Semicircle 

Operations 


generic 

package 


Sine  functions  dealing  with  input  in  units  of 
semicircles 
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3. 6. 8. 8. 9. 1.8  PART  DESIGN 

3. 6. 8. 8. 9. 1.8.1  CHEBYSHEVRADIANOPERATIONS  (CATALOG  IP887-0) 

This  package  contains  a  generic  function  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  This  package  is  designed  to  accept  inputs  in 
terms  of  radians. 


3. 6. 8. 8. 9. 1.8. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  j 

|  Chebyshev  Radian  Operations 

j  This  package  partially  fulfills  R214  | 

3.6.8.8.9.1.8.1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Radians 

1 

j  Real 

j  Sin  Cos  Ratio 

|  Floating  point 

1 

|  Floating  point 
j  Floating  point 

|  Allows  floating  point  representation  of 
j  radian  measurements. 

|  General  floating  point  representation, 
j  Represents  sines  and  cosines. 

Data  objects: 

The  following  table  describes  the 

generic  formal  objects 

required  by  th*s  part 

|  Name  | 

Type  |  Value 

|  Description 

1 

|  One  Over  Pi  | 

Radians  |  constant 

j  constant  value  of  inverse  of  Pi  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

1  Type  | 

Description  | 

|  »*» 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  radians  *  radians 
yielding  a  real  result. 

3. 6. 8. 8. 9. 1.8. 1.3  LOCAL  ENTITIES 
None. 


3. 6. 8. 8. 9. 1.8. 1.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 1.8. 1.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 


with  Polynomials; 


procedure  Sample 
type  Angles 
type  FPs 
type  Sines 


is 

is  digits  6; 
is  digits  6; 
is  digits  6; 


0ne_0ver_Pi  :  constant  :*  0.318310; 
Pi  :  constant  :«=  3.14159; 


Right_Angle  :  Angle; 

SineResult  :  Sines; 

function  (  Leftside  :  Angle; 

Right_Side  :  Angle)  return  FPs; 


package  Chebyshev_Sine  is  new  Polynomials. Chebyshev_Radian_Operations 

(  Radians  «>  Angles, 

Real  ■>  FPs, 

Sin_Cos_Ratio  *>  Sines, 

One_Over_Pi  ■>  0ne_0ver_Pi , 

*  ->  *  ); 

begin 

Right_Angle  :=  Pi  /  2.0; 

Sine_Result  :=  Chebyshev_Sine.Sin_R_5term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 1.8. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3. 6. 8. 8. 9. 1.3. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type  | 

Description 

1 

|  Sin  R  5term 

1 

|  function  | 

1  1 

Returns  the  sine 
terms,  single  or 

of  an  angle  computed  with  5  | 

extended  precision.  j 

The  following 
part : 

table  lists  the 

catalog  numbers 

for 

the  decomposition  of  this 

|  Name 

1  Type  | 

Catalog  #  | 

|  Sin  R  5term 

|  function  | 

P888-0  | 

1 

1  1 

1 

3. 6. 8. 8. 9. 1.8. 1.8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 1.8. 2  CHEBYSHEV_DEGREE_OPERATIONS  (CATALOG  #P889-0) 

This  package  contains  a  generic  function  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  This  package  is  designed  to  accept  inputs  in 
terms  of  degrees. 


3. 6. 8. 8. 9. 1.8. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  Chebyshev  Degree  Operations 

|  This  package  partially  fulfills  R214  | 

3. 6. 8. 8. 9. 1.8. 2. 2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 

Type 

|  Description  | 

|  Degrees  | 

1  1 

|  Real  j 

|  Sin  Cos  Ratio  | 

Floating  point 

Floating  point 
Floating  point 

|  Allows  floating  point  representation  of  | 

|  degree  measurements.  | 

|  General  floating  point  representation, 

j  Represents  sines  and  cosines.  | 

Subprograms : 

The  following  table  describes  the 
part : 

generic  formal  subroutines  required  by  this 

|  Name  |  Type 

|  Description  | 

|  |  function  |  Overloaded 

j  j  j  yielding  a 

operator  to  multiply  degrees  *  degrees  | 

real  result.  j 

3. 6. 8. 8. 9. 1.8. 2. 3 

None. 

LOCAL  ENTITIES 

3. 6. 8. 8. 9. 1.8. 2. 4 

INTERRUPTS 

None. 


3. 6. 8. 8. 9. 1.8. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles  is  digits  6; 
type  FPs  is  digits  6; 

type  Sines  is  digits  6; 

RightAngle  :  Angle; 

SineResult  :  Sines; 

function  (  Left_Side  :  Angle; 

Right_Side  :  Angle)  return  FPs; 

package  Cheby_Deg  is  new  Polynomials. Chebyshev_Degree_Operations 

(  Degrees  =>  Angles, 

Real  =>  FPs, 

Sin  Cos_Ratio  =>  Sines, 

*  =>  *  ); 

begin 

Right_Angle  :=  90.0; 

Sine_Result  :=  Cheby_Deg.Sin_R_5term(  Right_Angle  ); 
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end  Sample; 


3. 6. 8. 8. 9. 1.8. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 8. 9. 1.8. 2. 7  DECOMPOSITION 


The  following 

table  describes 

the  decomposition  of  this  part: 

|  Name 

1  Type  | 

Description  | 

|  Sin  R  5term 

1 

|  function  | 

1  1 

Returns  the  sine  of  an  angle  computed  with  5  | 

terms,  single  or  extended  precision. 

The  following 
part : 

table  lists  the 

catalog  numbers  for  the  decomposition  of  this 

|  Name  | 

Type  | 

Catalog  #  | 

|  Sin  R  5term  | 

1  '  1 

function  | 

1 

P890-0  | 

1 

3. 6. 8. 8. 9. 1.8. 2. 8 

PART  DESIGN 

None. 


3. 6. 8. 8. 9. 1.8.3  CHEBYSHEV_SEMICIRCLE_OPERATIONS  (CATALOG  #P891-0) 

This  package  contains  a  generic  function  providing  a  Chebyshev  polynomial 
solution  for  the  sine  function.  This  package  is  designed  to  accept  inputs  in 
terms  of  semicircles. 


3. 6. 8. 8. 9. 1.8. 3.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  Chebyshev  Semicircle  Operations 

|  This  package  partially  fulfills  R214  | 
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3. 6. 8. 8. 9. 1.8. 3.2 


i 


INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

|  Semicircles 

1 

|  Real 

|  Sin  Cos  Ratio 

|  Floating  point 

1 

Floating  point 
Floating  point 

|  Allows  floating  point  representation  of  | 
j  semicircle  measurements, 
j  General  floating  point  representation, 
j  Represents  sines  and  cosines.  j 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

Type  | 

Description  | 

|  «*« 

1 

function  j 

1 

Overloaded  operator  to  multiply  semicircles  * 
semicircles  yielding  a  real  result.  j 

3. 6. 8. 8. 9. 1.8. 3. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 8. 9. 1.8. 3. 4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 1.8. 3. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles  is  digits  6; 
type  FPs  is  digits  6; 
type  Sines  is  digits  6; 

Right_Angle  :  Angle; 

Sine_Result  :  Sines; 

function  (  Left_Side  :  Angle; 

Right_Side  :  Angle)  return  FPs; 
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package  Cheby_Semi  is  new  Polynomials. Chebyshev_Semicircle_Operations 

(  Semicircles  =>  Angles, 

Real  =>  FPs, 

Sin_Cos_Ratio  =>  Sines, 

*  =>  *  ); 

begin 

Right_Angle  :=  0.5; 

Sine_Result  :=  Cheby_Semi . Sin_R_5term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 1.8. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 1.8. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Sin  R  5term 

1 

|  function 

1  1 

Returns  the  sine 
terms,  single  or 

of  an  angle  computed  with  5  | 

extended  precision.  j 

The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 


|  Name 

1  Type  | 

Catalog  #  | 

|  Sin  R  5term 

|  function  | 

P892-0  | 

1 

1  1 

1 

3. 6. 8. 8. 9. 1.8. 3. 8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 2  CODY_WAITE  (CATALOG  #P893-0) 

This  package  contains  a  generic  function  providing  a  Cody_Waite  polynomial 
solution  for  the  log  functions. 


3. 6. 8. 8. 9. 2.1  REQUIREMENTS  ALLOCATION 


None . 
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3. 6. 8. 8. 9. 2. 2  INPUT/OUTPUT 
None. 

3. 6. 8. 8. 9. 2. 3  LOCAL  ENTITIES 
None . 

3. 6. 8. 8. 9. 2. 4  INTERRUPTS 
None. 

3. 6. 8. 8. 9. 2. 5  TIMING  AND  SEQUENCING 
None. 

3. 6. 8. 8. 9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 8. 9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  parts 


|  Name  | 

Type 

|  Description 

|  Cody  Natural  | 

generic 

|  Natural  log  functions. 

1  Log  | 

package 

1 

|  Cody  Log  Basel 

generic 

i 

|  Log  functions  to  base  N. 

j  _N  j 

package 

1 

3. 6. 8. 8. 9. 2. 8  PART  DESIGN 

3. 6. 8. 8. 9. 2. 8.1  CODY_NATURAL_LOG  (CATALOG  #P894-0) 

This  generic  package  contains  functions  providing  Cody  Waite  polynomial 
solutions  for  the  natural  log  function. 


3. 6. 8. 8. 9. 2. 8. 1.1  REQUIREMENTS  ALLOCATION 


None. 
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3. 6. 8. 8. 9. 2.3.1. 2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Inputs 
j  Outputs 

|  Floating  point 
|  Floating  point 

|  Floating  point 
j  Floating  point 

input  to  the  function  | 

output  to  the  function  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

1  Type 

Description 

1 

| 

1 

|  function 

1 

Overloaded  operator 
yielding  a  result  of 

to  multiply  Inputs  *  Inputs  | 
type  Outputs.  ■ 

3. 6. 8. 8. 9. 2. 8. 1.3  LOCAL  ENTITIES 
None. 


3. 6. 8. 8. 9. 2. 8. 1.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 2. 8. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  FPs  is  digits  9; 

SampleNum  :  FPs; 

Result  :  FPs; 

package  Nat_Log  is  new  Polynomials. Cody_Natural_Log 

(  Inputs  =>  FPs; 
Outputs  =>  FPs); 

begin 

Sample_Num  :=  33.0 

Result  :=  Nat_Log.Nat_Log(  Sample_Num  ); 
end  Sample; 


CAMP  Software  Top  Level  Design  Document 


Page  708 


3. 6. 8. 8. 9. 2. 8. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 8. 9. 2. 8. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Defloat 

1 

|  Nat  Log 

|  procedure 

j  function 

|  Reduces  the  real  number  x  to  sign  *  mantissa  *  | 

|  2  **  exponent  j 

|  Returns  the  natural  logarithm  of  a  number  j 

The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 


|  Name 

1  Type  | 

Catalog  #  | 

|  Nat_Log 

|  function  | 

P895-0  | 

3. 6. 8. 8. 9. 2. 8. 1.8  PART  DESIGN 
None. 

3. 6. 8. 8. 9. 2. 8. 2  CODY_LOG_BASE_N  (CATALOG  #P896-0) 

This  generic  package  contains  functions  providing  Cody  Waite  polyno  4al 
solutions  for  the  log  function  for  base  N. 

3. 6. 8. 8. 9. 2. 8. 2.1  REQUIREMENTS  ALLOCATION 
None 

3. 6. 8. 8. 9. 2. 8. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

!  Type 

|  Description 

1 

|  Inputs 
j  Outputs 

|  Floating  point 
j  Floating  point 

|  Floating  point 
j  Floating  point 

input  to  the  function  | 

output  to  the  function  j 
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Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Value 

Description  | 

|  Base  N 

|  Positive 

1  defualt  =  10  | 

Base  to  operate  in  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

1  Type 

Description 

I 

|  '•*« 

1 

|  function 

1 

Overloaded  operator 
yielding  a  result  of 

to  multiply  Inputs  *  Inputs  | 
type  Outputs.  j 

3. 6. 8. 8. 9. 2. 8. 2. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 8. 9. 2. 8. 2. 4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 2. 8. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  FPs  is  digits  9; 

Base  :  Positive; 

SampleNum  :  FPs; 

Result  :  FPs; 

package  Log_Base_5  is  new  Polynomials. Cody_Log_Base_N 

(  Inputs  =>  FPs; 
Outputs  =>  FPs, 
Base_N  =>  Base  ); 

begin 

Base  :=  5; 

Sample_Num  :=  j^.O 

Result  :=  Cody_Log_Base_N.Log_N  (  Sample_Num  ); 
end  Sample; 
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3. 6. 8. 8. 9. 2. 8. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 8. 9. 2. 8. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


j  Name 

Type 

|  Description 

1 

|  Log  Base  N 

1 

function 

|  Returns  the  logarithm  to  Base  of  a  number  | 

|  computed  with  8  terms,  either  precision  | 

The  following  table 
part: 

lists  the 

catalog  numbers 

for  the  decomposition  of  this 

|  Name 

1  Type  | 

Catalog  #  | 

|  Log  Base  N 

|  function  | 

P897-0  | 

3. 6. 8. 8. 9. 2. 8. 2. 8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 3  CONTINUED_FRACTI ON S  (CATALOG  #P898-0) 

This  package  contains  generic  functions  providing  Continued  Fractions 
polynomial  solutions  for  the  Tangent  and  Arctangent  functions.  Provisions  are 
made  for  the  trigonometric  functions  to  handle  units  of  radians. 


3. 6. 8. 8. 9. 3.1  REQUIREMENTS  ALLOCATION 
None. 


3. 6. 8. 8. 9. 3. 2  INPUT/OUTPUT 


None. 


3. 6. 8. 8. 9. 3. 3  LOCAL  ENTITIES 


None. 
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3. 6. 8. 8. 9. 3. 4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 3. 5  TIMING  AND  SEQUENCING 


None. 


3. 6. 8. 8. 9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Continued 
j  Radian 
|  Operations 

|  generic 
j  package 

1 

|  Tangent  and  arctangent  functions  dealing  with 
j  input  in  terms  of  radians 

1 

3. 6. 8. 8. 9. 3. 8  PART  DESIGN 

3. 6. 8. 8. 9. 3. 8.1  CONTINUED_RADIAN_OPERATIONS  (CATALOG  #P899-0) 

This  generic  packages  contains  functions  providing  Continued  Fractions 
polynomial  solutions  for  the  tangent  and  arctangent  functions.  This  package  is 
designed  to  handle  units  of  radians. 


3. 6. 8. 8. 9. 3. 8. 1.1  REQUIREMENTS  ALLOCATION 
None. 


3. 6. 8. 8. 9. 3. 8. 1.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

!  Description  j 

|  Radians 
j  Tan  Ratio 

Floating  Point 
Floating  Point 

Angle  expressed  radians 

Value  of  computed  tangent  function 
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Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type  | 

Description  | 

|  Default  Term  Count 

|  Positive  | 

Number  of  terms  in  the  calculation  | 

Subprograms: 

The  following  table 
part: 

describes  the 

generic  formal  subroutines  required  by  this 

|  Name  |  Type 

|  Description  | 

|  |  function 

!  1 

|  Overloaded 
|  yielding  a 

operator  to  multiply  radians  *  radians  | 

tan  ratio  result.  j 

3. 6. 8. 8. 9. 3. 8. 1.3  LOCAL  ENTITIES 
None. 


3. 6. 8. 8. 9. 3. 8. 1.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 3. 8. 1.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 
with  Polynomials; 


procedure  Sample  is 

type  Angles  is  digits  6; 
type  Tangents  is  digits  6; 

Count  :  Positive; 

RightAngle  :  Angle; 

Resull  :  Tangents; 

function  "*"  (  Left_Side  :  Angle; 

Right_Side  :  Angle)  return  Tangents; 


package  Continued_Rad  is  new  Polynomials. Continued_Radian_Operations 

(  Radians  =>  Angles, 

Tan_Ratio  =>  Tangents, 

Default_Term_Count  =>  Count, 

*  ”  =>  *  ); 


begin 

Right_ Angle  :=  Pi  /  2.0; 
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Result  :=  Cont inued_Rad.Tan_R_5term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 3. 8. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 3. 8. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Tan  R 

1 

|  Arctan  R 

1 

|  generic 
j  function 
|  generic 
j  function 

|  Tangent  function  dealing  with  input  in  units  of  | 

!  radians  j 

j  Arctangent  function  dealing  with  output  in  units  | 

1  of  radians  j 

The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 


|  Name 

!  Type  | 

Catalog  #  | 

|  Tan  R 

|  generic 

P900-0  | 

1 

j  function  j 

1 

|  Arctan  R 

j  generic 

P901-0  ! 

1 

j  function  j 

1 

3. 6. 8. 8. 9. 3. 8. 1.8  PART  DESIGN 
None. 


3. 6. 8. 8. 9. 4  FIKE  (CATALOG  #P902-0) 

This  packages  contains  generic  functions  providing  Fike  polynomial  solutions 
for  the  arcsine  function.  Provisions  are  made  for  the  arcsine  functions  to 
accept  units  of  sin_cos_ratio.  Outputs  are  of  type  semicircles. 


3. 6. 8. 8. 9. 4.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  |  Requirements  Allocation 


|  Fike  j  R215 
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3. 6. 8. 8. 9. 4. 2  INPUT/OUTPUT 
None . 

3. 6. 8. 8. 9. 4. 3  LOCAL  ENTITIES 
None . 

3. 6. 8. 8. 9. 4. 4  INTERRUPTS 
None. 


3. 6. 8. 8. 9. 4. 5  TIMING  AND  SEQUENCING 


None. 


3. 6. 8. 8. 9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 4. 7 

DECOMPOSITION 

The  following  table  describes 

the  decomposition  of  this  part: 

|  Name 

1  Type  | 

Description  | 

|  Fike^ 
j  Semicircle 
|  Operations 

|  generic  | 

|  package  | 

1  1 

Arcine  functions  dealing  with  input  in  units  of  | 
semicircles  i 

1 

3. 6. 8. 8. 9. 4. 8 

PART  DESIGN 

3. 6. 8. 8. 9. 4. 8.1  FIKE_SEMICIRCLE_OPERATIONS  (CATALOG  #P903-0) 

This  generic  package  contains  a  function  providing  Fike  a  polynomial  solution 
for  the  arcsine  function.  This  package  is  designed  to  accept  inputs  in  terms 
of  sin  cos  ratio. 


3. 6. 8. 8. 9. 4. 8. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  Fike_Semicircle_Operations 

|  This  package  partially  fulfills  R215  | 

CAMP  Software  Top  Level  Design  Document 


Page  715 


3. 6. 8. 8. 9. 4. 8. 1.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 


Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Semicircles 

1  I 

j  Real  j 

j  Sin  Cos  Ratio  j 

Floating  point 

Floating  point 
Floating  point 

|  Allows  floating  point  representation  of  | 

|  semicircle  measurements.  j 

j  General  floating  point  representation. 

|  Represents  sines  and  cosines. 

Subprograms: 

The  following  table  describes  the 
part : 

generic  formal  subroutines  required  by  this 

|  Name  |  Type 

|  Description 

1 

|  Sqrt  |  funtion 

|  returns  the  square  root  of  type  real  | 

3. 6. 8. 8. 9. 4. 8. 1.3 

LOCAL  ENTITIES 

None. 

3. 6. 8. 8. 9. 4. 8. 1.4 

INTERRUPTS 

None. 


3. 6. 8. 8. 9. 4. 8. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles  is  digits  6; 
type  FPs  is  digits  6; 
type  Sines  is  digits  6; 

Right_Angle  :  Angle; 

Sine  Result  :  Sines; 


function  Sqrt  (  Input  :  Real)  return  Real; 

package  Fike_Semi  is  new  Polynomials. Fike_Semicircle_Operations 

(  Semicircles  =>  Angles, 
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Sin_Cos_Ratio  =>  Sines, 
Real  =>  FPs, 

Sqrt  =>  Sqrt  ); 

begin 

Right_Angle  :=  1.0; 

Sine  Result  :=  Fike_Semi . Arcsin_R_6term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 4. 8. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 4. 8. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


|  Arcsin_S_6term  |  function  |  Returns  the  sine  of  an  angle  computed  with  6 

|  I  |  terms  single  or  extended  precision, 

j  Arccos_S_6term  j  function  j  Returns  the  cosine  of  an  angle  computed  with  6  j 

|  j  j  terms,  single  or  extended  precision.  i 


The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part : 


|  Name  | 

Type  | 

Catalog  #  | 

I  Arcsin  S  6term  I 

function  | 

P904-0  | 

j  Arccos_S_6term  | 

function  j 

P905-0  | 

3. 6. 8. 8. 9.4.8. 1.8 

PART  DESIGN 

None. 

3. 6. 8. 8. 9. 5  GENERALPOLYNOMIAL  (CATALOG  IP906-0) 

This  package  allows  the  user  to  define  a  polynomial  function  and  to  then  solve 
the  user-polynomial  for  a  given  input  value. 


3. 6. 8. 8. 9. 5.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 
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|  Name 

|  Requirements  Allocation  | 

|  General  Polynomial 

|  partially  meets  R214  through  R222  | 

3. 6. 8. 8. 9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Inputs 

floating 

Data  type  of  independent  values  | 

1 

point  type 

1 

|  Results 

floating 

Data  type  of  dependent  values 

1 

point  type 

1 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Coef ficient_Count 

|  Positive 

|  Number  of  coefficient  in  the  polynomial  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description  | 

|  "**" 

1 

j  function 

1 

Exponential  operator  defining  the  operation: 

Inputs  **  x  :=  Results  i 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Data  types: 

The  following  chart  describes  the  data  types  exported  by  this  part: 


CAMP  Software 

Top  Level  Design 

Document 

Page 

|  Name 

1 

Range  | 

Operators  | 

Description  j 

|  Coefficient 

1 

N/A  i 

N/A  | 

Contains  the  a  and  b  components  | 

j  Records 

1 

1 

1 

of  a  polynomial  term:a*(x**b) | 

j  Table 

1 

1  .. 

N/A  | 

Defines  the  size  of  the  | 

|  Dimensions 

I 

Coefficient 

1 

polynomial  table  j 

1 

1 

Count 

N/A  j 

I 

Data  objects: 

The  following 

table  describes  the  data  objects  exported  by  this  part: 

|  Name 

1 

Type  |  Definition 

1 

|  Polynomial 

1 

array  |  Array 

of  polynomial 

terms  | 

j  Definition 

1 

! 

1 

3. 6. 8. 8. 9. 5. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 8. 9. 5. A  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 5. 5  TIMING  AND  SEQUENCING 


The  following  is  a  sample  usage  of  this  part: 


with  Polynomials; 

type  Dependent_Values  is  new  FLOA'"; 
type  Independent_Values  is  new  FLOAT; 

function  "**"  (Left  :  Independent_Values, 

Right  :  POSITIVE)  return  FLOAT; 

package  Compute_Nev_Value  is  new 

General_Polynomial  (Inputs  *>  Independent_Values, 

Results  =>  Dependent_Values, 

Coef ficient_Count  =>  3); 

function  My_Compute  renames  Compute_New_Value. Polynomial; 

a  :  constant  FLOAT  :=  1.5; 

b  :  constant  FLOAT  :=  2.5; 

c  :  constant  FLOAT  :=  3.5; 

d  :  constant  POSITIVE  :  =  2; 


begin 
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— create  table  to  calculate  the  polynomial: 

— f(x)  :=  a  +  b*x  +  c*fx**d) 

Compute_Nev_Value . 

Polynomial_Def ini tion(l )  :=  (Coefficient  =>  a, 

Pover_of_X  =>  0); 

Compute_New_Value. 

Polynomial_Definition(2)  :=  (Coefficient  =>  b, 

Power_of_X  =>  1); 

Compute_New_Value. 

Polynomial_Definition(3)  :  *  (Coefficient  =>  c, 

Pover_of_X  *>  d); 

Result  :=  My_Compute(  X  ); 


3. 6. 8. 8. 9. 5. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 5. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  | 

1  Type  | 

Description  | 

|  Polynomial  | 
1  1 

|  function  | 

1  1 

Calculates  f(x)  where  f  is  defined  by  the  | 

polynomial_definition  table  j 

The  following 
part : 

table  lists 

the  catalog  numbers  for  the  decomposition  of  this 

|  Name 

1  Type  | 

Catalog  #  | 

|  Polynomial 

|  function  | 

P907-0  | 

3. 6. 8. 8. 9. 5. 8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 6  HART  (CATALOG  #P908-0) 

This  packages  contains  generic  functions  providing  Hart  polynomial  solutions 
for  the  cosine  function.  Provisions  are  made  for  the  trigonometric  functions 
to  handle  units  of  radians  or  degrees,  respectively.  Outputs  may  be  of  type 
sin  cos  ratio. 
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3. 6. 8. 8. 9. 6.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Naue  |  Requirements  Allocation 

|  Hart  |  R216 


3. 6. 8. 8. 9. 6. 2  INPUT/OUTPUT 


None. 


3. 6. 8. 8. 9. 6. 3  LOCAL  ENTITIES 


None. 


3. 6. 8. 8. 9. 6. 4  INTERRUPTS 


None. 


3.6.8.89.6.5  TIMING  AND  SEQUENCING 
None. 


3. 6. 8. 8. 9. 6. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 6. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


Har  t_ 

Radian 

Operations 


generic  |  Cosine  functions  dealing  with  input  in  units  of 
package  j  radians 


Hart_ 

Degree_ 

Operations 


generic  |  Sine  functions  dealing  with  input  in  units  of 
package  j  degrees 
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3. 6. 8. 8. 9. 6. 8  PART  DESIGN 

3. 6. 8. 8. 9. 6. 8.1  HART  RADIAN_OPERATIONS  (CATALOG  #P909-0) 

This  generic  package  contains  a  function  providing  a  Hart  polynomial  solution 
for  the  cosine  function.  This  package  is  designed  to  accept  inputs  in  terms  of 
radians . 


3. 6. 8. 8. 9. 6. 8. 1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  Hart  Radian  Operations 

|  This  package  partially  fulfills  R216  | 

3. 6. 8. 8. 9. 6. 8. 1.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Radians  | 

1  ■ 

j  Real  | 

j  Sin_Cos  Ratio  j 

Floating  point 

Floating  point 
Floating  point 

|  Allows  floating  point  representation  of  | 
j  radian  measurements.  i 
j  General  floating  point  representation. 

1  Represents  sines  and  cosines.  j 

Subprograms: 

* 

The  following  table  describes  the 
part: 

generic  formal  subroutines  required  by  this 

|  Name  |  Type 

|  Description  | 

|  |  function  |  Overloaded 

|  j  j  yielding  a 

operator  to  multiply  radians  *  radians  | 

real  result.  | 

3. 6. 8. 8. 9. 6. 8. 1.3 

LOCAL  ENTITIES 

None. 


CAMP  Software  Top  Level  Design  Document 


Page  722 


3. 6. 8. 8. 9. 6. 8. 1.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 6. 8. 1.5  TIMING  AND  SEQUENCING 


The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles  is  digits  6; 

type  FPs  is  digits  6; 

type  Sines  is  digits  6; 

type  Tangents  is  digits  6; 


Pi  :  constant  :=  3.14159; 

One_Over_Pi  :  constant  :=  1.0/Pi; 

RightAngle  :  Angle; 

Cosine  Result  :  Sines; 


function  "*"  (  Left_Side  :  Angle; 

RightSide  :  Angle)  return  FPs; 


package  Hart  Radian  is  new  Polynomials. Hart  Radian  Operations 


<  Radians  ■> 

Real  ■> 

Sin_Cos_Ratio  *> 

Pi  «> 

One_Over_Pi  *> 

*  «> 


Angles , 

FPs, 

Sines, 

Pi, 

OneOverPi , 
*  ) ; 


begin 

RightAngle  :=  Pi  /  2.0; 

Cosine_Result  :=  Hart_Cosine.Cos_R_5term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 6. 8. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.8.8.9.6.8.1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description 

i 

|  Cos  R  5term 

1 

|  function 

1 

Returns  the  cosine  of  an 
terms,  single  or  extended 

angle  computed  with  5  | 
precision.  j 
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The  following 
part : 

table  lists  the 

catalog  numbers  for  the  decomposition  of  this 

|  Name 

1  Type  | 

Catalog  #  | 

|  Cos  R  5term 

|  function  | 

P910-0  | 

3. 6. 8. 8. 9. 6. 8. 1.8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 6. 8. 2  HART_DEGREE_OPERATIONS  (CATALOG  #P911-0) 

This  generic  package  contains  a  function  providing  a  Hart  polynomial  solution 
for  the  cosine  function.  This  package  is  designed  to  accept  inputs  in  terms  of 
degrees. 


3. 6. 8. 8. 9. 6. 8. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summaries  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

1 

Requirements  Allocation  | 

|  Hart_Degree  Operations  | 

This  package  partially  fulfills  R216  | 

3. 6. 8. 8. 9. 6. 8. 2. 2 

INPUT/OUTPUT 

GENERIC  PARAMETERS 

>: 

Data  types: 

The  following  table  describes  the 

generic  formal  types  required  by  this  part: 

|  Name  | 

Type 

|  Description  | 

|  Degrees  | 

Floating  point 

|  Allows  floating  point  representation  of 

j  degree  measurements. 

|  Real  1 

Floating  point 

j  General  floating  point  representation. 

j  Sin  Cos  Ratio  | 

Floating  point 

j  Represents  sines  and  cosines. 

1  Tan_Ratio  | 

Floating  point 

j  Represents  tangent  values. 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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|  Name 

1  Type  | 

Description  | 

|  »*» 

1 

|  function  1 

1  1 

Overloaded  operator  to  multiply  degrees  *  degrees  | 

yielding  a  real  result.  j 

3. 6. 8. 8. 9. 6. 8. 2. 3  LOCAL  ENTITIES 
None. 


3. 6. 8. 8. 9. 6. 8. 2. 4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 6. 8. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles'  is  digits  6; 

type  FPs  is  digits  6; 

type  Sines  is  digits  6; 

type  Tangents  is  digits  6; 

Pi  :  constant  3.14159; 

RightAngle  :  Angle; 

Cosine_Result  :  Sines; 

function  (  Left_Side  :  Angle; 

RightSide  :  Angle)  return  FPs; 

package  Hart_Degree  is  new  Polynomials .Hart_Degree_Operations 

(  Degrees  =>  Angles, 

Real  *>  FPs, 

Sin_Cos_Ratio  =>  Sines, 

*  •>  *  ); 

begin 

Right_Angle  :=  90.0; 

CosineResult  :«=  Hart_Degree.Cos_R_5term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 6. 8. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3. 6. 8. 8. 9. 6. 8. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 

1  Type  | 

Description  | 

|  Cos  R  5term 

1 

|  function  | 

1  1 

Returns  the  cosine  of  an  angle  computed  with  5  | 
terms,  single  or  extended  precision.  j 

The  following 
part : 

table  lists  the 

catalog  numbers  for  the  decomposition  of  this 

|  Name 

1  Type  | 

Catalog  #  | 

|  Cos  R  5term 

|  function  | 

P912-0  | 

3. 6. 8. 8. 9. 6. 8. 2. 8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 7  HASTINGS  (CATALOG  #P913-0) 

This  package  contains  generic  functions  providing  Hastings  polynomial  solutions 
for  a  set  of  trigonometric  functions,  which  include  sine,  cosine,  tangent,  and 
arctangent.  Provisions  are  made  for  the  trigonometric  functions  to  handle 
units  of  radians  or  degrees. 


3. 6. 8. 8. 9. 7.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name  | 

Requirements  Allocation 

1 

|  Hastings  | 

R217 

1 

3. 6. 8. 8. 9. 7. 2 

INPUT/OUTPUT 

None. 

3. 6. 8. 8. 9. 7. 3 

LOCAL  ENTITIES 

None. 
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3. 6. 8. 8. 9. 7.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 7. 5  TIMING  AND  SEQUENCING 
None. 


3. 6. 8. 8. 9. 7. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 7. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  | 

Type 

Description 

1 

|  Hastings 

|  generic 

|  Trigonometric  functions  dealing  with  input  in 

1 

j  Radian 

I  package 

j  units  of  radians 

1 

j  Operations 

1 

1 

1 

1 

1 

l 

1 

|  Hastings 

1 

|  generic 

|  Trigonometric  functions  dealing  with  input  in 

1 

1 

j  Degree 

j  package 

j  units  of  degrees 

1 

|  Operations 

1 

1 

1 

3. 6. 8. 8. 9. 7. 8 

PART  DESIGN 

3. 6. 8. 8. 9. 7. 8.1 

HASTINGS_RADIAN_OPERATIONS  (CATALOG  #P914-0) 

This  generic  package  contains  functions  providing  Hastings  polynomial  solutions 

for  a  set  of  trigonometric 

functions.  This  package  is  designed  to  handle  units 

of  radians. 

3. 6. 8. 8. 9. 7. 8. 1 

.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 

part: 

|  Name 

|  Requirements  Allocation 

1 

|  Hastings  Radian_Operations  |  This  package  partially  fulfills  R217  | 
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3. 6. 8. 8. 9. 7. 8. 1.2  INPUT/OUTPl F 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type 


|  Description 


Radians 

Real 

SinCosRatio 
Tan  Ratio 


Floating  point 

Floating  point 
Floating  point 
Floating  point 


Allows  floating  point  representation  of 
radian  measurements. 

General  floating  point  representation. 
Represents  sines  and  cosines. 

Represents  tangent  values. 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

I  Type 

|  Value 

|  Description 

1 

|  Pi  Over  2 

|  Radians  | 

|  constant 

|  constant  value 

of 

Pi 

divided  by  2 

j  Pi_0ver_4 

j  Radians 

|  constant 

|  constant  value 

of 

Pi 

divided  by  4 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

| 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  radians  *  radians  | 

yielding  a  real  result.  j 

3. 6. 8. 8. 9. 7. 8. 1.3  LOCAL  ENTITIES 


None. 


3. 6. 8. 8. 9. 7. 8. 1.4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 7. 8. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 


with  Polynomials; 
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<! 

procedure  Sample  is 

type  Angles  is  digits  6; 

type  FPs  is  digits  6; 

type  Sines  is  digits  6; 

type  Tangents  is  digits  6; 

This  example  shows  these  constants  defined  by  the  user. 

They  are  also  available  through  the  package  Uni versal_Constants 
and  may  be  used  by  vith'ing  that  package. 

Pi  :  constant  :=  3.14159; 

Pi_0ver_2  :  constant  :=  Pi/2.0; 

Pi_0ver_4  :  constant  :=  Pi/4.0; 

RightAngle  :  Angle; 

SineResult  :  Sines; 

function  (  Left_Side  :  Angle; 

RightSide  :  Angle)  return  FPs; 

package  HastingsRad  is  new  Polynomials.  Hast ings_Radian_Operations 

(  Radians  =>  Angles, 

Real  =>  FPs, 

Sin_Cos  Ratio  =>  Sines, 

Tan_RatIo  =>  Tangents, 

Pi_0ver_2  «>  Pi_0ver_2, 

Pi~0ver_4  «>  Pi_0ver_4,  | 

Pi~  ~  ->  PiT  ”  1 

*  *>  *  ); 

begin 

Right_Angle  Pi_0ver_2; 

SineResult  :=  Hastings_Rad.Sin_R_5term(  RightAngle  ); 
end  Sample; 


3. 6. 8. 8. 9. 7. 8. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 7. 8. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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$0 

,vV 


Name 

1 

Type 

Sin  R  5term 

1 

function 

Sin  R  4term 

1 

i 

function 

Cos  R  5term 

1 

1 

i 

function 

Cos  R  4term 

i 

function 

Tan  R  5term 

1 

1 

i 

function 

Tan  R  4term 

1 

t 

i 

function 

Arctan  R  8term 

1 

1 

i 

function 

Arctan  R  7term 

1 

i 

function 

Arctan  R  6term 

1 

1 

i 

function 

Mod  Arctan  h  8term 

1 

1 

i 

function 

Mod  Arctan  R  7term 

1 

i 

function 

Mod  Arctan  R  6term 

1 

function 

Description 


i 


<• 


Returns  the  sine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  sine  of  an  angle  computed 
with  4  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
with  4  terms,  single  or  extended  precision. 
Returns  the  tangent  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  tangent  of  an  angle  computed 
with  4  terms,  single  or  extended  precision. 
Returns  an  angle  from  the  tangent  computed 
with  8  terms,  single  or  extended  precision. 
Returns  an  angle  from  the  tangent  computed 
with  7  terms,  single  or  extended  precision. 
Returns  an  angle  from  the  tangent  computed 
with  6  terms,  single  or  extended  precision. 
Returns  an  angle  from  the  tangent  computed 
with  8  terms,  single  or  extended  precision. 
Returns  an  angle  from  the  tangent  computed 
with  7  terms,  single  or  extended  precision. 
Returns  an  angle  from  the  tangent  computed 
with  6  terms,  single  or  extended  precision. 


The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 
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|  Name  |  Type  [  Catalog 


Sin_R_5term 
Sin_R  4term 
Cos_R_5term 
Cos_R_4term 
Tan_R_5term 
Tan  R_4term 
Arc tan_R_8 term 
Arc tan_R_7 term 
Arc tan_R_6 term 
ModArc  tan_R_8  term 
Mod_Ar c  tan_R_7  term 
Mod  Arctan  R  6term 


function  | 

i 

P915-0 

1 

function  | 

I 

P916-0 

function  | 

i 

P917-0 

1 

function  | 

i 

P918-0 

1 

function  | 

i 

P919-0 

function  | 

I 

P920-0 

1 

function  | 

i 

P921-0 

1 

function  | 

P922-0 

function  | 

P923-0 

function  | 

P924-0 

function  | 

P925-0 

function  | 

1 

P926-0 

3. 6. 8. 8. 9. 7. 8. 1.8  PART  DESIGN 
None. 


3. 6. 8. 8. 9. 7. 8. 2  HASTINGS_DEGREE_OPERATIONS  (CATALOG  #P927-0) 

This  generic  package  contains  generic  functions  providing  Hastings  polynomial 
solutions  for  a  set  of  trigonometric  functions.  This  package  is  designed  to 
handle  units  of  degrees. 


3. 6. 8. 8. 9. 7. 8. 2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  Hastings  Degree  Operations 

|  This  package  partially  fulfills  R217  | 
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3. 6. 8. 8. 9. 7. 8. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  descr Ibes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Degrees 

1 

j  Real 

j  Sin  Cos  Ratio 
j  Tan  Ratio 

|  Floating  point 

1 

|  Floating  point 
j  Floating  point 
j  Floating  point 

|  Allows  floating  point  representation  of  ' 
j  degree  measurements. 

|  General  floating  point  representation.  j 
j  Represents  sines  and  cosines.  j 
j  Represents  tangent  values.  | 

Data  objects: 

The  following  table  describes  the 

generic  formal  objects  required  by  this  part 

|  Name  | 

Type  j  Value 

|  Description  | 

1  Pi  1 

Degrees  |  constant 

|  constant  value  of  Pi  | 

Subprograms: 

• 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 

|  Name  |  Type 

|  Description 

1 

|  "*"  |  function  |  Overloaded 

j  |  j  yielding  a 

operator  to  multiply  degrees  *  degrees 
real  result.  | 

3. 6. 8. 8. 9. 7. 8. 2. 3  LOCAL  ENTITIES 
None. 


3. 6. 8. 8. 9. 7. 8. 2. 4  INTERRUPTS 


None. 


3. 6. 8. 8. 9. 7. 8. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 


with  Polynomials; 
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procedure  Sample  is 

type  Angles  is  digits  6; 

type  FPs  is  digits  6; 

type  Sines  is  digits  6; 

type  Tangents  is  digits  6; 

Right_Angle  :  Angle; 

Sine_Result  :  Sines; 

function  "*"  (  Left_Side  :  Angle; 

RightSide  :  Angle)  return  FPs; 

package  Hast_Deg  is  new  Polynomials. Has tings_Degree_Operat ions 

(  Degrees  =>  Angles, 

Real  =>  FPs, 

Sin_Cos_Ratio  =>  Sines, 

TanRatio  =>  Tangents, 

*  «>  *  ); 

begin 

Right_Angle  :=  90.0; 

Sine_Result  :=  HastDeg. Sin_R_5term(  Right_Angle  ); 
end  Sample; 


3. 6. 8. 8. 9. 7. 8. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 7. 8. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type  |  Description 


Sin_D_5term 
Sin_D_4term 
Cos_D_5term 
Cos_D_4term 
Tan_D_5term 
Tan  D  4term 


function 

function 

function 

function 

function 

function 


Returns  the  sine  of  an  anglQ  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  sine  of  an  angle  computed 
with  4  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
with  4  terms,  single  or  extended  precision. 
Returns  the  tangent  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  tangent  of  an  angle  computed 
with  4  terms,  single  or  extended  precision. 


The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 
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|  Name 


|  Type  |  Catalog  #  | 


Sin_D_5term 
Sin_D  4term 
Cos_D_5term 
C°s_D_4term 
Tan_D_5term 
Tan  D  4  term 


function  | 

i 

P928-0 

1 

function  | 

i 

P929-0 

1 

function  | 

i 

P930-0 

1 

function  | 

i 

P931-0 

function  | 

i 

P932-0 

I 

function  | 

1 

P933-0 

3. 6. 8. 8. 9. 7. 8. 2. 8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 8  MODIFIED_NEWTON_RAPHSON  (CATALOG  #P934-0) 

This  package  contains  generic  functions  providing  Modified  Newton  Raphson 
polynomial  solutions  for  the  square  root  function. 


3. 6. 8. 8. 9. 8.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


|  Name  | 

Requirements  Allocation  | 

|  Modif iedNewton  Raphson  | 

R220  | 

3. 6. 8. 8. 9. 8. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  the 
functions  (Sqrt)  in  this  part: 


CAMP  Software  Top  Level  Design  Document 


Page  734 


|  Name 

1  Type 

Description 

1 

|  Inputs 

1 

|  Floating  point 

1 

Floating  point 
function. 

Input  to  square  root  | 

|  Outputs 

1 

|  Floating  point 

1 

Floating  point 
f unc  t ion . 

Output  of  square  root  | 

1 

3. 6. 8. 8. 9. 8. 3 

LOCAL  ENTITIES 

None . 

3. 6. 8. 8. 9. 8. 4 

INTERRUPTS 

None. 


3. 6. 8. 8. 9. 8. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  the  only  function  in  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  FPs  is  digits  6; 

Sample_Num  :  FPs; 

Result  :  FPs; 

function  Mod_Sqrt  is  new  Polynomials. Modif ied_Nevton_Raphson. Sqrt 

(  Inputs  »>  FPs, 

Outputs  =>  FPs); 

begin 

Sample_Num  :=  642.33; 

Result  :=  Mod_Sqrt(  Input  =>  Sample_Num  ); 
end  Sample; 


3. 6. 8. 8. 9. 8. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 8. 8. 9. 8. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

Description  ’  | 

1  Sqrt 

1 

|  generic 
j  function 

Function  returning  the  square  root  of  a  real. 

Calculation  cycle  performed  3  times.  | 
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The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
par  t : 


|  Name 

|  Catalog  #  | 

1  Sqrt 

|  P935-0  | 

3. 6. 8. 8. 9. 8. 8  PART  DESIGN 


None. 


3. 6. 8. 8. 9. 9  NEVTON_RAPHSON  (CATALOG  #P936-0) 

This  packages  contains  generic  functions  providing  Newton  Raphson  polynomial 
solutions  for  the  square  root  function. 


3. 6. 8. 8. 9. 9.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name  | 

Requirements  Allocation 

1 

|  Newton_Raphson  | 

R221 

1 

3. 6. 8. 8. 9. 9. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  the  only 
function  (Sqrt)  in  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Inputs 

|  Floating  point 

|  Floating  point 

Input  to  squu  e  root  | 

1 

|  function. 

j 

j  Outputs 

|  Floating  point 

j  Floating  point 

Output  of  square  root  j 

1 

1 

|  function. 

1 

3. 6. 8. 8. 9. 9. 3  LOCAL  ENTITIES 


None. 
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3. 6. 8. 8. 9. 9. 4  INTERRUPTS 


None . 


3. 6. 8. 8. 9. 9. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  the  only  function  in  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  FPs  is  digits  9; 

SampleNum  :  FPs; 

Result  :  FPs; 

function  Sqrt  is  new  Polynomials .Newton  Raphson.Sqrt 

(  Inputs  =>  FPs, 

Outputs  =>  FPs); 

begin 

Sample_Num  :  =  642.33; 

Result  :«  Sqrt(  Input  «>  Sample_Num  ); 
end  Sample; 


3. 6. 8. 8. 9. 9. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3. 6. 8. 8. 9. 9. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

1  Type 

|  Description  | 

1  Sqrt 

1 

|  generic 

1  function 

|  Function  returning  the  square  root  of  a  real.  1 

|  Calculation  cycle  performed  3  times.  | 

The  following  table 
part : 

lists  the  catalog  numbers  for  the  decomposition  of  this 

|  Name 

|  Catalog  #  | 

1  Sqrt 

|  P937-0  | 

3. 6. 8. 8. 9. 9. 8  PART  DESIGN 


None. 
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3.6.8.8.9.10  SYSTEM_FUNCTIONS  (CATALOG  #P938-0) 

This  package  provides  access  to  the  Ada  system  library  for  standard 
mathematical  functions.  The  trigonometric  functions  allow  for  inputs  with 
units  of  radians,  semicircles,  and  degrees. 


3.6.8.8.9.10.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocaticn  of  CAMP  requirements  to  this 
part : 


|  Name 

|  Requirements  Allocation  | 

|  System  Functions 

|  R223  | 

3.6.8.8.9.10.2  INPUT/OUTPUT 
EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Exceptions: 

The  following  chart  describes  the  exceptions  exported  by  this  part: 


|  Name 


Description 


I 


Inval i d_0pe  rand 

Inval id_Argumen t 

Overflow 

Underflow 

Log_Ze  r oNega t i ve 

SquareRootNegative 


The  input  value  is  in  an  improper  format  not 
accepted  by  the  operating  system 

The  input  value  is  an  a  range  unacceptable  to  the 
function  being  called 

A  floating  point  overflow  was  encountered  during 
the  calculations 

A  floating  point  underflow  was  encountered  during 
the  calculations 

An  attempt  was  made  to  take  a  log  of  a  zero  or 
negative  value  value 

An  attempt  was  made  to  take  the  square  root  of  a 
negative  number 


3.6.8.8.9.10.3  LOCAL  ENTITIES 
None. 

3.6.8.8.9.10.4  INTERRUPTS 


None. 


CAMP  Software  Top  Level  Design  Document 


Page  738 


3.6.8.8.9.10.5  TIMING  AND  SEQUENCING 
None. 


3.6.8.8.9.10.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.10.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type  |  Description 


Rad ian_Operat ions 

Semicircle_Operations 

Degr ee_0pe rations 

Square  Root 
Base_l0_Logari thm 
BaseNLogari thm 


generic 

package 

generic 

package 

generic 

package 

generic 

generic 

generic 


Contains  trigonometric  functions 
dealing  with  units  of  radians 
Contains  trigonometric  functions 
dealing  with  units  of  semicircles 
Contains  trigonometric  functions 
dealing  with  units  of  degrees 
Contains  a  square  root  function 
Contains  a  base  10  logarithm  function 
Contains  a  base  n  logarithm  function 


3.6.8.8.9.10.8  PART  DESIGN 

3.6.8.8.9.10.8.1  RADIAN0PERATI0NS  (CATALOG  #P939-0) 

Provides  a  set  of  trigonometric  functions  handling  angles  in  units  of  radians. 

No  exceptions  are  raised  by  this  part.  The  following  exceptions  are  raised  by 
units  in  this  part: 


1 

|  Name 

Invalid 

Operand 

Invalid 

Argument 

1 

1 

Over- 

Flow 

Sin 

* 

7 

Cos 

★ 

i 

Tan 

* 

i 

* 

Arcsin 

* 

★ 

i 

Arccos 

* 

★ 

Arc tan 

* 

i 

3.6.8.8.9.10.8.1.1  REQUIREMENTS  ALLOCATION 


( 


None. 
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3.6.8.8.9.10.8.1.2  INPUT/OUTF'JT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Radians 

SinCosRatio 

Tan  Ratio 


floating 
point  type 
floating 
point  type 


floating 
point  type 


Data  type  describing  units  of 
angles 

Data  type  describing  output  values 
from  sine  and  cosine  functions 
and  input  values  to  arcsine  and 
arccosine  functions 
Data  type  describing  output  values 
from  tangent  function  and  input 
values  to  arctangent  function 


3.6.8.8.9.10.8.1.3  LOCAL  ENTITIES 
None. 


3.6.8.8.9.10.8.1.4  INTERRUPTS 


None. 


3.6.8.8.9.10.8.1.5  TIMING  AND  SEQUENCING 

The  following  illustrates  a  sample  usage  of  this  part: 

with  Polynomials; 

type  My_Radians  is  new  FLOAT; 
type  My_Sin_Cos  Ratio  is  new  FLOAT; 

type  My_Tan_RatIo  is  new  FLOAT; 

package  ROpns  is  new 

Polynomials .  Sys  tem_Functions .  Radian_Operations 
(Radians  ->  My_Radians, 

Sin_Cos  Ratio  =>  My~Sin_Cos  Ratio, 

Tan~RatIo  «>  My~Tan~RatIo) ; 

Angle  :  My_Radians; 

Result  :  My_Sin_Cos_Ratio; 

begin 


Result  :  =  ROpns . Sin( Angle) ; 
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3.6.8.8.9.10.8.1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.10.8.1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


Sin 

1 

function 

Cos 

function 

Tan 

1 

function 

Arcsin 

1 

function 

Arccos 

1 

function 

Arc tan 

1 

function 

Sine  function 
Cosine  function 
Tangent  function 
Arcsine  function 
Arccosine  function 
Arctangent  function 


The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 


|  Name  |  Catalog  #  | 


Sin 

|  P940-0 

Cos 

P941-0 

Tan 

P942-0 

Arcsin 

|  P943-0 

Arccos 

)  P944-0 

Arctan 

|  P945-0 

3.6.8.8.9.10.8.1.8  PART  DESIGN 


None. 


3.6.8.8.9.10.8.2  SEMICIRCLE _OPERATI0NS  (CATALOG  #P946-0) 

Provides  a  set  of  trigonometric  functions  handling  angles  in  units  of 
semicircles. 

No  exceptions  are  raised  by  this  part.  The  following  exceptions  are  raised  by 
units  in  this  part: 


CAMP  Softvare  Top  Level  Design  Document 


Page  741 


1 

1 

Invalid 

1 

Invalid 

1 

Over- 

1 

1 

Name 

1 

Operand 

1 

Argument 

1 

Flow 

! 

1 

Sin 

1 

* 

1 

1 

1 

1 

Cos 

1 

★ 

1 

Tan 

1 

* 

I 

1 

* 

1 

1 

Arcsin 

t 

★ 

1 

★ 

1 

i 

Arccos 

1 

* 

1 

•k 

1 

1 

1 

Arc tan 

1 

* 

1 

1 

1 

3.6.8.8.9.10.8.2.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.6.8.8.9.10.8.2.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type  |  Description  | 

|  Scalars 

floating  |  Describes  data  type  of  input  object  pi 

j  Semicircles 

floating  |  Data  type  describing  units  of  angles 

1 

point  type  j 

1  Sin  Cos  Ratio 

floating  j  Data  type  describing  output  values  from  sine 

point  type  j  and  cosine  functions  and  input  values  to 

I 

arcsine  and  arccosine  functions 

|  Tan  Ratio 

floating  j  Data  type  describing  output  values  from 

point  type  |  tangent  function  and  input  values  to 

1 

j  arctangent  function 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type  | 

Value 

|  Description  | 

1  Pi 

Scalars | 

N/A 

|  Number  of  radians  in  a  semicircle  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  (operators) 
required  by  this  part: 
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1 

|  Left  Input 

|  Right  Input 

|  Result  | 

!  Name 

1  Type 

1  Type 

1  Type  | 

| 

|  Semicircles 

|  Scalars 

j  Scalars  | 

t  11*1! 

|  Scalars 

j  Scalars 

|  Semicircles  j 

3.6.8.8.9.10.8.2.3  LOCAL  ENTITIES 
None. 


3.6.8.8.9.10.8.2.4  INTERRUPTS 
None. 


3.6.8.8.9.10.8.2.5  TIMING  AND  SEQUENCING 

The  following  illustrates  a  sample  usage  of  this  part: 

with  Polynomials; 

•  •  • 

type  My_Semicircles  is  new  FLOAT; 
type  MySinCos  Ratio  is  new  FLOAT; 
type  My  Tan  Ratlo  is  new  FLOAT; 

•  •  • 

function  (Left  :  My_Semicircles; 

Right  :  FLO/.T)  return  FLOAT; 
function  (Left  :  FLOAT; 

Right  :  FLOAT)  return  My_Semicircles; 

•  •  • 

package  SOpns  is  new 

Polynomials .  Sys  tem_Func  t  ions .  Semici  rcle_Opera  t  ions 
(Scalars  «>  FLOAT,  _ 

Semicircles  ->  My_Semicircles, 

Sin_Cos  Ratio  «>  My_Sin_Cos  Ratio, 

Tan_RatIo  «>  My~Tan~RatIo); 

•  •  • 

Angle  :  My_Semicircles; 

Result  :  My_Sin_Cos_Ratio; 

•  •  • 
begin 
•  •  • 

Result  :■  SOpns. Sin( Angle); 


3.6.8.8.9.10.8.2.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.8.8.9.10.8.2.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


1 

Name 

Type 

Description 

1 

1 

Sin 

function 

Sine  function 

1 

1 

Cos 

function 

Cosine  function 

1 

1 

Tan 

function 

Tangent  function 

f 

1 

Arcsin 

function 

Arcsine  function 

1 

Arccos 

function 

Arccosine  function 

1 

Arctan 

function 

Arctangent  function 

1 

The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 


|  Name  |  Catalog  #  i 


Sin 

Cos 

Tan 

Arcsin 
Arccos 
Arc tan 


P947-0 

P948-0 

P949-0 

P950-0 

P951-0 

P952-0 


3.6.8.8.9.10.8.2.8  PART  DESIGN 


None. 


3.6.8.8.9.10.8.3  DEGREE_OPERATIONS  (CATALOG  #P953-0) 

Provides  a  set  of  trigonometric  functions  handling  angles  in  units  of  degrees. 

No  exceptions  are  raised  by  this  part.  The  following  exceptions  are  raised  by 
units  in  this  part: 


1 

1 

Invalid 

1 

Invalid 

1 

Over- 

|  Under- 

1 

1 

Name 

1 

Operand 

1 

Argument 

1 

Flow 

j  Flow 

1 

1 

Sin 

1 

* 

1 

1 

I  * 

1 

1 

Cos 

* 

1 

1 

1 

Tan 

1 

★ 

1 

1 

* 

1 

1 

Arcsin 

1 

* 

★ 

1 

1 

Arccos 

* 

1 

★ 

1 

1 

1 

Arctan 

1 

★ 

1 

1 

1 
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3.6.8.8.9.10.8.3.1  REQUIREMENTS  ALLOCATION 


See  top  header. 


3.6.8.8.9.10.8.3.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type  |  Description 


Degrees 
Sin  Cos  Ratio 


Tan  Ratio 


floating 
point  type 
floating 
point  type 

floating 
point  type 


Data  type  describing  units  of  angles 

Data  type  describing  output  values  from  sine 
and  cosine  functions  and  input  values  to 
arcsine  and  arccosine  functions 
Data  type  describing  output  values  from 
tangent  function  and  input  values  to 
arctangent  function 


3.6.8.8.9.10.8.3.3  LOCAL  ENTITIES 


None. 


3.6.8.8.9.10.8.3.4  INTERRUPTS 


None. 


3.6.8.8.9.10.8.3.5  TIMING  AND  SEQUENCING 

The  following  illustrates  a  sample  usage  of  this  part: 

with  Polynomials; 

•  •  • 

type  My_Degrees  is  new  FLOAT; 
type  My_Sin_Cos  Ratio  is  new  FLOAT; 
type  My_Tan_RatIo  is  new  FLOAT; 

•  •  • 

package  DOpns  is  new 

Polynomials. System_Funct ions .  Degree_0perations 
(Degrees  ->  My_D<grees, 

Sin_Cos  Ratio  =>  My_Sin_Cos  Ratio, 
Tan_RatIo  «=>  My_Tan_RatIo) ; 

Angle  :  My_Degrees; 

Result  :  My_Sin_Cos_Ratio; 

•  •  • 

begin 
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Result  :=  DOpns. Sin( Angle) ; 


3.6.8.8.9.10.8.3.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.10.8.3.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 

Type 

Description 

Sin 

function 

Sine  function 

Cos 

function 

Cosine  function 

Tan 

function 

Tangent  function 

Arcsin 

function 

Arcsine  function 

Arccos 

function 

Arccosine  function 

Arc tan 

function 

Arctangent  function 

The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part: 


|  Name  |  Catalog  t  | 


|  Sin 

|  P954-0 

1 

j  Cos 

P955-0 

1 

j  Tan 

P956-0 

1 

j  Arcsin 

j  P957-0 

j  Arccos 

|  P958-0 

j  Arc tan 

|  P959-0 

1 

3.6.8.8.9.10.8.3.8  PART  DESIGN 


None. 


3.6.8.8.9.10.8.4  SQUAREROOT  (CATALOG  #P960-0) 

This  package  contains  the  function  required  to  calculated  the  square  root  of  an 
input  value. 

The  following  exceptions  are  raised  by  units  in  this  part: 


1 

|  Invalid 

Square  1 

|  Name 

j  Operand 

Root_Negative  j 

1  Sqrt 

1  * 

*  1 
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3.6.8.8.9.10.8.4.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.6.8.8.9.10.8.4.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description 

1 

|  Inputs 

floating 

Data  type  of 

input  values  | 

1 

point  type 

1 

|  Outputs 

floating 

Data  type  of 

output  values  | 

3.6.8.8.9.10.8.4.3  LOCAL  ENTITIES 


None. 


3.6.8.8.9.10.8.4.4  INTERRUPTS 


None. 


3.6.8.8.9.10.8.4.5  TIMING  AND  SEQUENCING 

The  following  illustrates  how  this  part  would  be  used: 

with  Polynomials; 

•  •  • 

type  My_Type  is  new  FLOAT; 

type  MyTypeSquared  is  new  My_Type; 

•  •  • 

package  Square_Root  is  new 

Polynomials. System_Funct ions . Square_Root 
(Inputs  =>  My_Type  Squared, 

Outputs  ■>  Ky_Type7; 
use  Square_Root; 

•  •  • 

a  :  MyType; 
b  :  My_Type_Squared ; 

•  *  • 

begin 


A  :*  Sqrt(B); 
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3.6.8.8.9.10.8.4.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 

3.6.8.8.9.10.8.4.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

!  Type 

Description  | 

1  Sqrt 

|  function 

Calculates  the  square  root  of  an  input  value  | 

3.6.8.8.9.10.8.4.8  PART  DESIGN 
None. 

3.6.8.8.9.10.8.5  BASE10L0GARITHM  (CATALOG  #P961-0) 

This  package  contains  the  function  which  calculates  the  base-10  log  of  an  input 
value . 

The  following  exceptions  are  raised  by  units  in  this  part: 


1 

|  Invalid  j 

|  Log  Zero  | 

|  Name 

|  Operand 

|  Negative 

|  Log_10  | 

1  *  1 

1  *  1 

3.6.8.8.9.10.8.5.1  REQUIREMENTS  ALLOCATION 
See  top  header. 

3.6.8.8.9.10.8.5.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description 

1 

|  Inputs 

floating 

Data  type  of 

input  values 

1 

point  type 

|  Outputs 

floating 

Data  type  of 

output  values 
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3.6.8.8.9.10.8.5.3  LOCAL  ENTITIES 


None. 


3.6.8.8.9.10.8.5.4  INTERRUPTS 
None. 


3.6.8.8.9.10.8.5.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  chart: 

with  Polynomials; 

type  My_Type  is  new  FLOAT; 

type  Log_10_Results  is  new  FLOAT; 

•  •  • 

package  Base_10  Log  is  new 

Polynomials. System_Functions.Base_10_Logarithms 
(Inputs  «>  My_Type, 

Outputs  «>  Log_10_Results) ; 
use  Base_10_log; 

•  »  * 

a  :  My_Type; 
b  :  Log_10_Results; 

•  •  • 

begin 

B  Log_10(A); 


3.6.8.8.9.10.8.5.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.10.8.5.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  | 

Type 

|  Description  | 

|  Log_10  | 

function 

|  Returns  the  base  10  log  of  an  input  value  | 

3. 6. 8. 8. 9. 

10.8.5.8 

PART  DESIGN 

None. 
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3.6.8.8.9.10.8.6  BASE_N_LOGARITHM  (CATALOG  #P962-0) 

This  package  contains  the  function  required  to  calculated  the  base  n  logarithm 
of  an  input  value. 

The  following  exceptions  are  raised  by  this  part: 


|  Name 


|  When/Whv  Raised 


|  InvalidOperand  |  Raised  if  the  format  of  the  value  of  Base_N  is  invalid  | 

j  and  not  accepted  by  the  operating  system  j 

j  Log_Zero_Negative  |  Raised  if  the  value  of  Base_N  is  not  greater  than  0 


3.6.8.8.9.10.8.6.1  REQUIREMENTS  ALLOCATION 
This  part  partially  meets  CAMP  requirement  R223. 

3.6.8.8.9.10.8.6.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 

|  Name  |  Type  |  Description  | 

|  Inputs  |  floating  |  Data  type  of  input  values  | 

|  |  point  type  | 

|  Outputs  |  floating  |  Data  type  of  output  values 

|  |  point  type  |  j 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

Type 

Value 

|  Description  | 

|  Base_N 

POSITIVE 

N/A 

|  Determines  the  root  of  the  logarithm  | 

Subprograms: 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 
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1 

|  Left  Input 

|  Right  Input 

|  Result  | 

|  Name 

1  Type 

i  Type 

1  Type  | 

|  »*» 

|  Outputs 

j  Outputs 

|  Outputs  | 

|  "/" 

j  Inputs 

|  Inputs 

j  Outputs  j 

3.6.8.8.9.10.8.6.3  LOCAL  ENTITIES 
None. 

3.6.8.8.9.10.8.6.4  INTERRUPTS 
None. 


3.6.8.8.9.10.8.6.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

*  i  i 

type  MyType  is  new  FLOAT; 

type  MyLogResults  is  new  FLOAT; 

•  •  • 

MyLogBase  :  constant  POSITIVE  :■  3; 

•  •  • 

package  Base_3_Log  is  new 

Polynomials .  Sys  tem_Functions .  Base_N_Logari  thm 
(Inputs  ->  MyType, 

Outputs  «=>  My  Log  Results, 

Base_N  ■>  My_Log_Base) ; 

•  •  • 

function  Log_3  (Input  :  My_Type)  return  My_Log  Results 

renames  Base_3_Log. Log_N; 


a  :  My  Type; 
b  :  My_Log_Results; 
•  •  • 
begin 

B  :«  Log_3(A) ; 


3.6.8.8.9.10.8.6.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.10.8.6.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

1  Type 

|  Description  | 

I  Log_N 

|  function 

Calculates  the  base  n  logarithm  of  an  input  value  | 

3.6.8.8.9.10.8.6.8  PART  DESIGN 
None . 

3.6.8.8.9.11  TAYLOR  (CATALOG  #P963-0) 

This  package  contains  generic  packages  providing  Taylor  and  Modified  Taylor 
polynomial  solutions  for  a  set  of  trigonometric  functions.  Provisions  are  made 
for  the  trigonometric  functions  to  handle  units  of  radians  or  degrees. 

3.6.8.8.9.11.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 

|  Name  |  Requirements  Allocation  | 

Vft  |  Taylor  |  R222  | 


3.6.8.8.9.11.2  INPUT/OUTPUT 


None. 


3.o  8.8.9.11.3  LOCAL  ENTITIES 
None. 


3. 6. 8. 8. 9. 11. A  INTERRUPTS 


None. 


3.6.8.8.9.11.5  TIMING  AND  SEQUENCING 
None. 


3.6.8.8.9.11.6  GLOBAL  PROCESSING 


There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.8.8.9.11.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


Taylor_ 

Radian_ 

Operations 


generic 

package 


Trigonometric  functions  dealing  with  input  in 
units  of  radians 


Taylor_ 

Degree 

Operations 


generic 

package 


Trigonometric  functions  dealing  with  input  in 
units  of  degrees 


Taylor_ 

Natural 

Log 


generic  j  Natural  log  functions  with  floating  point  input 
package  j  and  output 


Taylor_ 
Log_ 
Base  N 


generic  j  Log  functions  for  different  bases  with  floating 
package  |  point  input  and  output 


3.6.8.8.9.11.8  PART  DESIGN 

3.6.8.8.9.11.8.1  TAYLORRADIANOPERATIONS  (CATALOG  #P964-0) 

This  generic  package  contains  functions  providing  Taylor  and  Modified  Taylor 
polynomial  solutions  for  a  set  of  trigonometric  functions.  This  package  is 
designed  to  handle  units  of  radians. 


3.6.8.8.9.11.8.1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

|  Requirements  Allocation  | 

|  Taylor_Radian_Operations 

|  This  package  partially  fulfills  R222  | 

3.6.8.8.9.11.8.1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  typer: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 


Type  |  Description 


Radians 

Real 

Sin_Cos_Ratio 
Tan  Ratio 


Floating  point 

Floating  point 
Floating  point 
Floating  point 


Allows  floating  point  representation  of 
radian  measurements. 

General  floating  point  representation. 
Represents  sines  and  cosines. 

Represents  tangent  values. 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

Value 

Description 

1 

|  Pi_0ver_2 
j  Pi~0ver  4 

|  Radians 
|  Radians 

constant 

constant 

constant  value 
constant  value 

Pi 

Pi 

divided  by  2  | 

divided  by  4  [ 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type  | 

Description  | 

| 

1 

function  | 
1 

Overloaded  operator  to  multiply  radians  *  radians  | 

yielding  a  real  result.  | 

3.6.8.8.9.11.8.1.3  LOCAL  ENTITIES 


None. 


3.6.8.8.9.11.8.1.4  INTERRUPTS 


None. 


3.6.8.3.9.11.8.1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles  is  digits  6; 

type  FPs  is  digits  6; 

type  Sines  is  digits  6; 

type  Tangents  is  digits  6; 


This  example  shows  these  constants  defined  by  the  user. 
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They  are  also  available  through  the  package  Universal_Constants 
and  may  be  used  by  vith'ing  that  package. 

Pi  :  constant  :=  3.14159; 

Pi_0ver_2  :  constant  :=  1.57079; 

Pi~0ver_4  :  constant  :=  0.785398; 

RightAngle  :  Angle; 

SineResult  :  Sines; 

function  (  Left_Side  :  Angle; 

RightSide  :  Angle)  return  FPs; 

package  Taylor_Rad  is  new  Polynomials. Taylor_Radian_Operations 

(  Radians  *>  Angles, 

Real  ->  FPs, 

Sin_Cos  Ratio  «>  Sines, 

Tan_RatIo  ■>  Tangents, 

Pi  «>  Pi, 

Pi_0ver_2  ->  Pi_0ver_2, 

Pi_0ver_4  *>  Pi  Over  4, 

*  ->  *  T; 

begin 

Right_Angle  :■  Pi_0ver  2; 

Sine  Result  s«  Taylor_Rad.Sin_R_5term(  Right  Angle  ); 
end  Sample; 


3.6.8.8.9.11.8.1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.11.8.1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name  |  Type  |  Description 


I  Sin  R  8term 

function 

Returns  the  sine  of  an  angle  computed  j 

with  8  terms,  extended  precision.  j 

Sin  R  7term 

function 

Returns  the  sine  of  an  angle  computed  ! 

with  7  terms,  extended  precision.  j 

Sin  R  6term 

function 

Returns  the  sine  of  an  angle  computed  j 

with  6  terms,  extended  precision.  | 

Sin  R  5term 

function 

Returns  the  sine  of  an  angle  computed  j 

with  5  terms,  single  or  extended  precision.! 

Sin  R  4term 

function 

Returns  the  sine  of  an  angle  computed  j 

with  4  terms,  single  precision.  j 

Cos  R  8 term 

function 

Returns  the  cosine  of  an  angle  computed  j 

with  8  terms,  extended  precision.  j 

Cos  R_7term 

function 

Returns  the  cosine  of  an  angle  computed  j 

with  7  terms,  extended  precision. 

Cos  R  6term 

function 

Returns  the  cosine  of  an  angle  computed 
with  6  terms,  extended  precision.  j 

Cos  R  5term 

function 

Returns  the  cosine  of  an  angle  computed  | 

with  5  terms,  single  or  extended  precision.! 

Cos  R  4term 

function 

Returns  the  cosine  of  an  angle  computed  j 

with  4  terms,  single  precision.  | 

Tan_R_8term 

function 

Returns  the  tangent  of  an  angle  computed  j 
with  8  terms,  extended  precision.  1 

Arcs in_R_8 term 

function 

Returns  an  angle  from  the  sine  computed  j 

with  8  terms,  extended  precision. 

Arcs in_R_7 term 

function 

Returns  an  angle  from  the  sine  computed 
with  7  terms,  extended  precision. 

Arcsin_R_6term 

function 

Returns  an  angle  from  the  sine  computed 
vith  6  terms,  extended  precision. 

Arcs in_R_5 term 

function 

Returns  an  angle  from  the  sine  computed 
vit:h  5  terms,  single  or  extended  precision. 

Arccos_R_8term 

function 

Returns  an  angle  from  the  cosine  computed 
vith  8  terms,  extended  precision. 

Arccos_R_7term 

function 

Returns  an  angle  from  the  cosine  computed 
vith  7  terms,  extended  precision. 

Arccos_R_6term 

function 

Returns  an  angle  from  the  cosine  computed 
vith  6  terms,  extended  precision. 

Arccos_R_5term 

function 

Returns  an  angle  from  the  cosine  computed 
vith  5  terms,  single  or  extended  precision. 

Arctan_R_8term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  8  terms,  extended  precision. 

Arc tan_R_7 term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  7  terms,  extended  precision. 

Arc tan_R_6 term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  6  terms,  extended  precision. 

Arctan_R_5term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  5  terms,  single  or  extended  precision. 

Arctan_R  4 term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  4  terms,  single  precision. 

A1 t_Arc  tan_R_8  term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  8  terms,  extended  precision. 

Alt_Arctan_R_7term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  7  terms,  extended  precision. 

Alt_Arctan_R_6term 

function 

Returns  an  angle  from  the  tangent  computed 
vith  6  terms,  extended  precision. 
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Alt  Arctan  R  5term 

|  function 

1 

Alt  Arctan  R  4term 

|  function 

i 

Mod  Sin  R  8term 

|  function 

Mod  Sin  R  7 term 

|  function 
| 

Mod  Sin  R  6term 

|  function 

Mod  Sin  R  5term 

|  function 

Mod  Sin  R  4term 

|  function 

i 

Mod  Cos  R  8term 

1 

|  function 

1 

Mod  Cos  R_7term 

I 

|  function 

i 

Mod  Cos  R  6term 

|  function 
| 

Mod  Cos  R  5term 

1 

|  function 
| 

Mod  Cos  R  4term 

1 

1  function 

l 

Mod  Tan  R  8term 

1  function 

1 

Mod  Tan  R  7 term 

1 

1  function 

1 

Mod  Tan  R  6term 

1  function 

1 

Mod  Tsui  R  5 term 

1  function 

1 

Mod  Tan  R  4 term 

1  function 

1 

Returns  an  angle  from  the  tangent  computed 
with  5  terms,  single  or  extended  precisior. 
Returns  an  angle  from  the  tangent  computed 
with  4  terms,  single  precision. 

Returns  the  sine  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  6  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  sine  of  an  angle  computed 
with  4  terms,  single  precision. 

Returns  the  cosine  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  6  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
vith  4  terms,  single  precision. 

Returns  the  tangent  of  an  angle  computed 
vith  8  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
vith  7  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
vith  6  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
vith  5  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
vith  4  terms,  extended  precision. 


The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part : 
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|  Name 

|  Catalog  # 

1 

|  Sin  R  8term 

|  P965-0 

1 

1 

|  Sin  R  7term 

P966-0 

i 

j  Sin  R  6term 

|  P967-0 

1 

i 

j  Sin  R  5term 

1  P968-0 

1 

1 

i 

|  Sin  R  4term 

P969-0 

1 

i 

j  Cos  R  8  term 

|  P970-0 

1 

1 

i 

j  Cos  R  7 term 

|  P971-0 

| 

j  Cos_R  6 term 

|  P972-0 

1 

1 

i 

j  Cos  R_5term 

|  P973-0 

1 

1 

i 

j  Cos  R  4term 

|  P974-0 

1 

1 

i 

j  Tan_R  8  term 

P975-0 

1 

1 

|  Arcsin_R_8term 

!  P976-0 

1 

1 

j  Arcsin_R_7term 

P977-0 

1 

i 

j  Arcsin_R_5term 

i  P978-0 

1 

1 

i 

j  Arcsin_R_5term 

|  P979-0 

1 

i 

j  Arccos_R_8term 

|  P980-0 

1 

i 

j  Arccos  R  7 term 

4 

|  P981-0 

1 

i 

j  Arccos_R_6term 

|  P982-0 

1 

1 

t 

j  Arccos  R  5term 

|  P983-0 

1 

1 

i 

j  Arctan_R  8 term 

|  P984-0 

1 

i 

j  Arctan_R_7term 

|  P985-0 

1 

! 

j  Arc tan_R_6 term 

P986-0 

1 

1 

i 

j  Arctan_R_5term 

|  P987-0 

1 

i 

j  Arc tan  R_4term 

P988-0 

| 

1 

i 

j  Alt_Arctan_R_8term 

I  P989-0 

1 

1 

j  Alt_Arctan_R_7term 

|  P990-0 

1 

1 

j  Alt  Arctan  R  6term 

P991-0 

1 

I 

1 

I 
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Alt  Arctan  R_5term 

P992-0 

Alt  Arctan_R_4term 

P993-0 

Mod  Sin  R_8term 

1  P994-0 

Mod  Sin  R  7 term 

!  P995-0 

Mod  Sin  R  6term 

P996-0 

Mod  Sin  R  5term 

P997-0 

Mod  Sin  R_4term 

|  P998-0 

Mod  Cos  R  8 term 

P999-0 

Mod  Cos_R  7  term 

I  P1000-0 

Mod  Cos  R  6 term 

I  P1001-0 

Mod  Cos  R  5term 

|  P1002-0 

Mod  Cos  R  4 term 

P1003-0 

Mod  Tan_R  8term 

|  P1004-0 

Mod_Tan_R_7  term 

j  P1005-0 

Mod_Tan_R_6  term 

|  P1006-0 

Mod_Tan_R_5term 

P 1007-0 

Mod_Tan_R_4  term 

P1008-0 

3.6.8.8.9.11.8.1.8  PART  DESIGN 
None. 

3.6.8.8.9.11.8.2  TAYLOR_DEGREE_OPERATI ON S  (CATALOG  IP1009-0) 

This  generic  package  contains  functions  providing  Taylor  and  Modified  Taylor 
polynomial  solutions  for  a  set  of  trigonometric  functions.  This  package  is 
designed  to  handle  units  of  degrees. 


3.6.8.8.9.11.8.2.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 
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|  Name 

|  Requirements  Allocation  | 

|  Taylor  Degree  Operations 

|  This  package  partially  fulfills  R222  | 

3.6.8.8.9.11.8.2.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name  |  Type 


Description 


Degrees 

Real 

Sin_Cos  Ratio 
Tan  Ratio 


Floating  point 

Floating  point 
Floating  point 
Floating  point 


Allows  floating  point  representation  of 
degree  measurements. 

General  floating  point  representation. 
Represents  sines  and  cosines. 

Represents  tangent  values. 


Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type  | 

Description  | 

|  "*« 

1 

|  function  | 

1  1 

Overloaded  operator  to  multiply  degrees  *  degrees  | 

yielding  a  real  result.  j 

3.6.8.8.9.11.8.2.3  LOCAL  ENTITIES 
None. 


3.6.8.8.9.11.8.2.4  INTERRUPTS 


None. 


3.6.8.8.9.11.8.2.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  Angles  is  digits  6; 
type  FPs  is  digits  6; 
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type  Sines  is  digits  6; 
type  Tangents  is  digits  6; 

RightAngle  :  Angle; 

SineResult  :  Sines; 

function  (  Left_Side  s  Angle; 

Right_Side  :  Angle)  return  FPs; 

package  Taylor_Deg  is  new  Polynomials. Taylor_Degree_Operations 

(  Degrees  =>  Angles, 

Real  *>  FPs, 

Sin_Cos  Ratio  =>  Sines, 

Tan~RatIo  *>  Tangents, 

*  =>  *  ); 

begin 

Right_Angle  :■  90.0; 

Sine_Result  :*  Taylor_Deg. Sin_D_5term(  Right_Angle  ); 
end  Sample; 


3.6.8.8.9.11.8.2.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.11.8.2.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 


Type  |  Description 


Sin_D_8term 

Sin_D_7  term 

Sin_D_6term 

Sin_D_5term 

Sin_D_4term 

Cos_D_8term 

Cos_D_7term 

Cos_D_6term 

Cos_D_5term 

Cos_D_4term 

Tan_D_8term 

Mod_Sin_D_8term 

Mod_Sin_D_7term 

Mod_Sin_D_6  term 

Mod_Sin_D_5term 

Mod_Sin_D_4term 

Mod_Cos_D_8 term 

Mod_Cos_D_7  term 

Mod_Cos_D_6  term 

Mod_Cos_D_5term 

Mod_Cos_D_4term 

Mod_Tan_D_8  term 

Mod_Tan_D_7  term 

Mod_Tan_D_6term 

Mod_Tan_D_5term 

Mod  Tan  D  4 term 


function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 

function 


Returns  the  sine  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  6  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  sine  of  an  angle  computed 
with  4  terms,  single  precision. 

Returns  the  cosine  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  6  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
with  4  terms,  single  precision. 

Returns  the  tangent  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  6  terms,  extended  precision. 

Returns  the  sine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  sine  of  an  angle  computed 
with  4  terms,  single  precision. 

Returns  the  cosine  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  6  terms,  extended  precision. 

Returns  the  cosine  of  an  angle  computed 
with  5  terms,  single  or  extended  precision. 
Returns  the  cosine  of  an  angle  computed 
with  4  terms,  single  precision. 

Returns  the  tangent  of  an  angle  computed 
with  8  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
with  7  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
with  6  terms,  extended*  precision. 

Returns  the  tangent  of  an  angle  computed 
with  5  terms,  extended  precision. 

Returns  the  tangent  of  an  angle  computed 
with  4  terms,  extended  precision. 
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The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part : 


Name 

|  Catalog  # 

Sin  D  8term 

|  P1010-0 

Sin  D  7term 

i  P10U-0 

Sin  D  6term 

1  P1012-0 

Sin  D  5term 

|  P1013-0 

Sin  D  Aterm 

j  P1035-0 

Cos  D  8 term 

|  P101A-0 

Cos  D  7  term 

|  P1015-0 

Cos  D  6term 

P1016-0 

Cos  D  5 term 

|  P1017-0 

Cos  D  Aterm 

i  P1018-0 

Tan  D  8 term 

|  P1019-0 

Mod  Sin  D  8term 

|  P1020-0 

Mod  Sin  D  7 term 

|  P1021-0 

Mod  Sin  D  6term 

j  P1022-0 

Mod  Sin  D  5term 

j  P1023-0 

Mod  Sin  D  Aterm 

|  P102A-0 

Mod  Cos  D  8 term 

;  P1025-0 

Mod  Cos  D  7 term 

i  P1026-0 

Mod  Cos  D  6 term 

|  P1027-0 

Mod  Cos  D  5term 

P1028-0 

Mod  Cos  D  Aterm 

|  P1029-0 

Mod  Tan  D  8 term 

|  P1030-0 

Mod  Tan  D  7 term 

|  P1031-0 

Mod  Tan  D  6 term 

!  P1032-0 

Mod  Tan  D  5 term 

|  P1033-0 

Mod  Tan  D  Aterm 

|  P103A-0 

3.6.8.8.9.11.8.2.8  PART  DESIGN 


None. 


3.6.8.8.9.11.8.3  TAYLOR_NATURAL_LOG  (CATALOG  #P1036-0) 

This  generic  package  contains  functions  providing  Taylor  polynomial  solutions 
for  the  natural  log  function. 


3.6.8.8.9.11.8.3.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 


Requirements  Allocation 


|  Taylor_Natural_Log  |  partial  fulfillment  of  R222 
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3.6.8.8.9.11.8.3.2  INPUT/OUTPUT 


GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description 

1 

|  Inputs 
j  Outputs 

|  Floating  point 
|  Floating  point 

|  Floating  point 
j  Floating  point 

input  to  the  function  1 

output  to  the  function 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

Description 

1 

|  «*" 

1 

|  function 

1 

Overloaded  operator 
yielding  a  result  of 

to  multiply  Inputs  *  Inputs  | 
type  Outputs.  i 

3.6.8.8.9.11.8.3.3  LOCAL  ENTITIES 


None. 


3.6.8.8.9.11.8.3.4  INTERRUPTS 


None. 


3.6.8.8.9.11.8.3.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  FPs  is  digits  9; 

Sample_Num  :  FPs; 

Result  :  FPs; 

package  Nat_Log  is  new  Polynomials. Taylor_Natural_Log 

(  Inputs  ->  FPs; 
Outputs  =■>  FPs); 

begin 

Sample_Num  33.0 

Result  :«  Nat_Log.Nat_Log_8term(  Sample_Num  ); 
end  Sample; 
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£ 

£ 

3. 6. S. 8. 9. 11. 8. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.11.8.3.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  j  Description 


Nat_Log_8term 

Nat_Log_7term 

Nat_Log_6term 

Nat_Log_5term 

Nat_Log_4term 


function 

function 

function 

function 

function 


Returns  the  natural  logarithm  of  a  number 
computed  with  8  terms,  either  precision 
Returns  the  natural  logarithm  of  a  number 
computed  with  7  terms,  either  precision 
Returns  the  natural  logarithm  of  a  number 
computed  with  6  terms,  either  precision 
Returns  the  natural  logarithm  of  a  number 
computed  with  5  terms,  either  precision 
Returns  the  natural  logarithm  of  a  number 
computed  with  4  terms,  either  precision 


The  following  table  lists  the  catalog  numbers  for  the  decomposition,  of  this 
part: 


|  Name 

|  Catalog  #  | 

|  Nat  Log  8term 

|  P1037-0  | 

|  Nat  Log  7  term 

j  P1038-0  j 

Nat  Log  6term 

i  P1039-0 

I  Nat  Log  5 term 

|  P1040-0  i 

j  Nat_Log_4term 

|  P1041-0  | 

3.0.8.8.9.11.8.3.8  PART  DESIGN 


None. 


3.6.8.8.9.11.8.4  TAY LOR_LOG_BASE_N  (CATALOG  #P1042-0) 

This  generic  package  contains  functions  providing  Taylor  polynomial  solutions 
for  the  log  function  for  base  N. 


3.6.8.8.9.11.8.4.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  CAMP  requirements  to  this 
part : 


« 
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|  Name 

Requirements  Allocation  | 

|  Taylor  Log  Base  N 

partial  fulfillment  of  R222  | 

3.6.8.8.9.11.8.4.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Inputs 
j  Outputs 

|  Floating  point 
j  Floating  point 

|  Floating  point  input  to  the  function  | 

j  Floating  point  output  to  the  function  j 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type  | 

Value  |  Description  | 

|  Base_N 

|  Positive  | 

defualt  -  10  |  Base  to  operate  in  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 

|  Name 

1  Type 

|  Description  | 

| 

1 

|  function 

1 

|  Overloaded  operator  to  multiply  Inputs  *  Inputs  | 
j  yielding  a  result  of  type  Outputs.  j 

3.6.8.8.9.11.8.4.3  LOCAL  ENTITIES 


None. 


3.6.8.8.9.11.8.4.4  INTERRUPTS 


None. 
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3.6.8.8.9.11.8.4.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Polynomials; 

procedure  Sample  is 

type  FPs  is  digits  9; 

Base  :  Positive; 

SampleNum  :  FPs; 

Result  :  FPs; 

package  Log_Base_5  is  new  Polynomials. Taylor_Log_Base_N 

(  Inputs  «>  FPs; 
Outputs  ■>  FPs, 
Base_N  =>  Base  ); 

begin 

Base  5; 

Sample_Num  :=  33.0 

Result  :*=  Nat_Log.Nat_Log_8term(  Sample_Num  ); 
end  Sample; 


3.6.8.8.9.11.8.4.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3.6.8.8.9.11.8.4.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type 

Description  | 

|  Log_Base_N_8term 

function 

Returns  the  logarithm  to  Base  of  a  number 
computed  with  8  terms,  either  precision 

Returns  the  logarithm  to  Base  of  a  number 
computed  with  7  terms,  either  precision 

j  Log_Base_N_7term 

function 

j  Log_Base_N_6term 

function 

Returns  the  logarithm  to  Base  of  a  number 
computed  with  6  terms,  either  precision 

Returns  the  logarithm  to  Base  of  a  number 
computed  with  5  terms,  either  precision 

Returns  the  logarithm  to  Base  of  a  number 
computed  with  4  terms,  either  precision 

|  Log_Base_N_5term 

function 

j  Log_Base_N_4term 

function 

The  following  table  lists  the  catalog  numbers  for  the  decomposition  of  this 
part : 
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|  Name 


Catalog  #  I 


Log_Base_N_8term  |  P1043-0 
Log_Base_N_7term  |  P1044-0 
Log_Base_N_6term  |  P1045-0 
Log_Base_N_5term  |  P1046-0 
Log_Base_N_4term  j  P1047-0 


3.6.8.8.9.11.8.4.8  PART  DESIGN 


None. 
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package  Polynomials  is 
pragma  PAGE; 

package  Chebyshev  is 
pragma  PAGE; 

generic 

type  Radians  is  digits  <>; 

type  Real  is  digits  <>; 

type  Si.n_Cos_Rat io  is  digits  <>; 

One  Over~Pi  :  in  Radians; 

vitE  function  (Left  :  Radians; 

Right  :  Radians)  return  Real  is  <>; 
package  ChebyshevRadianOperations  is 

—  Chebyshev  sine  radian  functions 

function  Sin_R_5term(Input  :  Radians)  return  Sin_Cos_Ratio; 

end  Chebyshev_Radian_Operations; 

pragma  PAGE; 
generic 

type  Degrees  is  digits  <>; 

type  Real  is  digits  <>; 

type  Sin_Cos_Ratio  is  digits  <>; 
vith  function  (Left  s  Degrees; 

Right  :  Degrees)  return  Real  is  <>; 

package  Chebyshev_Degree_Operations  is 

—  Chebyshev  sine  degree  functions 

function  Sin_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
end  Chebyshev_Degree_Operations; 


pragma  PAGE; 
generic 

type  Real  is  digits  <>; 

type  Semicircles  is  digits  <>; 

type  Sin_Cos_Ratio  is  digits  <>; 

vith  function  (Left  :  Semicircles; 

Right  :  Semicircles)  return  Real  is  <>; 
package  Chebyshev_Semicircle_Operations  is 

—  Chebyshev  sine  semicircle  Junctions 

function  Sin_S_5term  (Input  :  Semicircles)  return  Sin_Cos_Ratio; 

end  Chebyshev_Semicircle_Operations; 

end  Chebyshev; 

pragma  PAGE; 

package  Cody_Waite  is 
pragma  PAGE; 
generic 
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type  Inputs  is  digits  <>; 

type  Outputs  is  digits  <>; 

with  function  (Left  :  Inputs; 

Right  :  Inputs)  return  Outputs  is  O; 
package  Cody_Natural_Log  is 

function  Nat_Log  (  Input  :  Inputs  )  return  Outputs; 

end  Cody_Natural_Log; 

pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 

type  Outputs  is  digits  <>; 

Base_N  :  in  POSITIVE  :«  10; 

vith  function  "*"  (Left  :  Inputs; 

Right  :  Inputs)  return  Outputs  is  <>; 
package  Cody_Log_Base_N  is 

package  Log_Base_N  is 

function  Log_N  (  Input  :  Inputs  )  return  Outputs; 
end  Log_Base_N; 
end  Cody_Log_Base_N ; 

end  CodyVaite; 

pragma  PAGE; 

package  Continued_Fractions  is 

pragma  PAGE; 
generic 

type  Radians  is  digits  <>; 

type  Tan_Ratio  is  digits  <>; 

Default_Term_Count  :  in  POSITIVE; 
with  function  (Left  :  Radians; 

Right  :  Radians)  return  Tan  Ratio  is  <>; 
package  Continued_Radian_Operations  is  ' 

—  Continued  Fractions  tangent  radian  functions 

function  Tan_R  (Input  :  Radians; 

Term_Count  s  POSITIVE  :■  Default_Term_Count  ) 

return  Tan  Ratio; 


—  Continued  Fractions  arctangent  radian  Junctions 


function  Arctan_R  (Input  s  Tan_Ratio; 

Term_Count  :  POSITIVE  Default_Term_Count  ) 

return  Radians; 


end  Continued_Radian_Operations; 

end  Continued_Fractions; 

pragma  PAGE; 

package  Fike  is 
pragma  PAGE; 
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generic 

type  Semicircles  is  digits  <>; 
type  Sin  Cos_Ratio  is  digits  <>; 
type  Real  is  digits  <>; 

with  function  Sqrt(Input  :  Real)  return  Real; 
package  Fike_Semicircle_Operations  is 

—  arcsine  functions 

function  Arcsin_S_6term  (Input  :  Sin_Cos_Ratio)  return  Semicircles; 

—  arccosine  Junctions 

function  Arccos_S_6term  (Input  :  Sin_Cos_Ratio)  return  Semicircles; 

end  Fike_Semicircle_Operations; 

end  Fike; 

pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 

type  Results  is  digits  <>; 

CoefficientCount  s  in  POSITIVE; 
vith  function  "**"  (Left  :  Inputs; 

Right  s  POSITIVE)  return  Results  is  <>; 
package  GeneralJPolynomial  is 

type  Coefficient_Records  is 
record 

Coefficient  :  Results; 

PoverOfX  :  NATURAL; 
end  record; 

subtype  Table_Dimension  is  INTEGER  range  1  ..  Coef ficient_Count; 
Polynomial_Definition  :  array  (Table_Dimension)  of  Coef ficient_Records; 
function  Polynomial  (Input  :  Inputs)  return  Results; 


end  General_Polynomial ; 

pragma  PAGE; 

package  Hart  is 


is  digits  <>; 
is  digits  <>; 


pragma  PAGE; 
generic 

type  Radians 
type  Real 

type  Sin_Cos_Ratio  is  digits  <>; 

Pi  :  Radians; 

Pi_0ver_2  :  Rad it 

with  function  (Left  :  Radians; 

Right  :  Radians) 

package  Hart  Radian  Operations  is 


return  Real  is  <>; 
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—  Hart  radian  cosine  functions 

function  Cos_R_5term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
end  Hart_Radian_Operations ; 


pragma  PAGE; 
generic 

type  Degrees  is  digits  <>; 

type  Real  is  digits  <>; 

type  Sin_Cos_Ratio  is  digits  <>; 

vith  function  (Left  :  Degrees; 

Right  :  Degrees)  return  Real  is  <>; 

package  Hart_Degree_Operations  is 

—  Hart  degree  cosine  functions 

function  Cos_D_5term  (Input  s  Degrees)  return  Sin_Cos_Ratio; 

end  Bar t_Degree_Operat ions; 

end  Hart; 

pragma  PAGE; 

package  Hastings  is 
pragma  PAGE; 

generic 

type  Radians  is  digits  <>; 

type  Real  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan  Ratio  is  digits  <>; 

Pi_Over_J  s  in  Radians; 

Pi_0ver_4  j  in  Radians; 

Pi  :  in  Radians; 

with  function  (Left  :  Radians; 

Right  :  Radians)  return  Real  is  <>; 

package  Hastings_Radian_Operations  is 

—  Hastings  sine  radian  Junctions 

function  Sin_R_5term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio; 

—  Hastings  cosine  radian  functions 

function  Cos_R_5term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Cos_R_4term  (Input  :  Radians)  return  Sin_Cos_Rati'o; 

—  Hastings  tangent  radian  functions 

function  Tan_R_5term  (Input  s  Radians)  return  Tan_Ratio; 
function  Tan_R  4term  (Input  :  Radians)  return  Tan  Ratio; 
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—  Hastings  arctangent  radian  functions 

function  Arctan_R_8term  (Input  :  Tan_Ratio)  return  Radians; 
function  Arctan  R_7term  (Input  :  Tan_Ratio)  return  Radians; 
function  Arctan  R_6term  (Input  :  Tan_Ratio)  return  Radians; 


—  Modified  Hastings  arctangent  radian  functions 

function  Mod_Arctan_R_8term  (Input  : 
function  Mod_Arctan_R_7term  (Input  : 
function  Mod_Arctan_R_6term  (Input  : 
end  Hastings_Radian_Operations; 


Tan_Ratio) 
Tan_Ratio) 
Tan  Ratio) 


return  Radians; 
return  Radians; 
return  Radians; 


pragma  PAGE; 
generic 

type  Degrees  is  digits  <>; 

type  Real  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan_RatIo  is  digits  <>; 

with  function  (Left  s  Degrees; 

Right  :  Degrees)  return  Real  is  <>; 

package  HastingsDegreeOperations  is 

—  Hastings  sine  degree  functions 

function  SinDSterm  (Input  :  Degrees)  return  SinCosRatio; 
function  Sin_D_4term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 

—  Hastings  cosine  degree  Junctions 


function  Cos_D_5term  (Input 
function  Cos_D_4term  (Input 
—  tangent  degree  functions 


Degrees)  return  SinCosJRatio; 
Degrees)  return  Sin_Cos_Ratio; 


function  Tan_D_5term  (Input  :  Degrees)  return  Tan_Ratio; 
function  Tan_D_4term  (Input  :  Degrees)  return  Tan_Ratio; 
end  Hastings_Degree_Operations; 
end  Hastings; 


pragma  PAGE; 

package  Modified  Newton  Raphson  is 


—  miscellaneous  function 

generic 
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type  Inputs  is  digits  <>; 

type  Outputs  is  digits  <> ; 

function  Sqrt  (Input  :  Inputs)  return  Outputs; 

end  Modif ied_Newton_Raphson; 

pragma  PAGE; 

package  Nevton_Raphson  is 
—  miscellaneous  Junction 

generic 

type  Inputs  is  digits  <>; 

type  Outputs  is  digits  <>; 

function  Sqrt  (Input  :  Inputs)  return  Outputs; 

end  NevtonRaphson; 

pragma  PAGE; 

package  System_Functions  is 

Invalid_Operand  :  exception; 

Invalid_Argument  :  exception; 

Overflow  :  exception; 

Underflow  :  exception; 

LogZeroNegative  :  exception; 

SquareRootNegative  s  exception; 

pragma  PAGE; 
generic 

type  Radians  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan  Ratio  is  digits  <>; 

package  RadIan_Operations  is 

function  Sin  (Input  :  Radians)  return  Sin_Cos_Ratio; 

function  Cos  (Input  :  Radians)  return  Sin_Cos  Ratio; 

function  Tan  (Input  :  Radians)  return  Tan  Ratio; 

function  Arcsin  (Input  :  Sin_Cos_Ratio)  return  Radians; 

function  Arccos  (Input  :  Sin_Cos  Ratio)  return  Radians; 

function  Arctan  (Input  :  Tan_RatIo)  return  Radians; 

end  Radian_Operations; 

pragma  PAGE; 
generic 

type  Scalars  is  digits  <>; 

type  Semicircles  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan_RatIo  is  digits  <>; 

Pi  ~  :  in  Scalars; 

with  function  "*"  (Left  :  Semicircles; 

Right  :  Scalars)  return  Scalars  is  <>; 

vith  function  n*n  (Left  :  Scalars; 

Right  :  Scalars)  return  Semicircles  is  <>; 
package  Semicircle_Operations  is 
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function  Sin  (Input 
function  Cos  (Input 
function  Tan  (Input 
function  Arcsin  (Input 
function  Arccos  (Input 
function  Arctan  (Input 

end  Semicircle  Operations; 


Semicircles)  return 
Semicircles)  return 
Semicircles)  return 
Sin_Cos_Ratio)  return 
Sin_Cos_Ratio)  return 
Tan  Ratio)  return 


pragma  PAGE; 
generic 

type  Degrees  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 
type  Tan_RatIo  is  digits  <>; 
package  Degree_Operations  is 


function  Sin  (Input 
function  Cos  (Input 
function  Tan  (Input 
function  Arcsin  (Input 
function  Arccos  (Input 
function  Arctan  (Input 


Degrees)  return 
Degrees)  return 
Degrees)  return 
Sin_Cos_Ratio)  return 
Sin_Cos  Ratio)  return 
Tan  Ratio)  return 


end  Degree_Operations; 


pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 
type  Outputs  is  digits  <>; 
package  SquareRoot  is 


function  Sqrt  (Input  :  Inputs)  return  Outputs; 


end  Square_Root; 

pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 
type  Outputs  is  digits  <>; 
package  Base  10_Logarithm  is 


Sin_Cos_Ratio; 
Sin_Cos_Ratio: 
Tan~Ratio; 
Semicircles ; 
Semicircles ; 
Semicircles ; 


Sin_Cos_Ratio; 
Sin_Cos  Ratio; 
Tan  Ratio; 
Degrees ; 
Degrees ; 
Degrees ; 


function  Log_10  (Input  s  Inputs)  return  Outputs; 
end  Base_10  Logarithm; 


pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 
type  Outputs  is  digits  <>; 

Base_N  s  in  POSITIVE: 

with  function  (Left  :  Inputs; 

Right  :  Inputs)  return  Outputs  is  <>; 
with  function  "/”  (Left  :  Inputs; 

Right  :  Inputs)  return  Inputs  is  <>; 
package  Base_N_Logarithm  is 

function  Log_N  (Input  :  Inputs)  return  Outputs; 
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end  Base_N_Lo£rarithm; 
end  System_Functions; 
pragma  PAGE; 

package  TaylorSeries  is 
pragma  PAGE; 
generic 

type  Radians  is  digits  <>; 

type  Real  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan_RatTo  is  digits  <>; 

Pi  :  Radians; 

Pi_0ver_2  s  Radians; 

Pi_0ver_4  :  Radians; 

with  function  (Left  s  Radians; 

Right  :  Radians)  return  Real  is  <>; 
package  TaylorRadianOperations  is 

—  Taylor  sine  radian  Junctions 

function  Sin_R_8term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Sin_R_7term  (Input  t  Radians)  return  SinCosRatio; 
function  Sin_R_6term  (Input  ;  Radians)  return  SinCosRatio; 
function  SinRSterm  (Input  J  Radians)  return  SinCosRatio; 
function  Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio; 

—  Modified  Taylor  sine  radian  Junctions 

function  Mod_Sin_R_8term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Mod_Sin_R_7term  (Input  :  Radians)  return  SinCosRatio; 
function  Mod_Sin_R_6term  (Input  :  Radians)  return  Sin_Cos_Ratio: 
function  Mod_Sin_R_5term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Mod_Sin_R_4term  (Input  :  Radians)  return  Sin_Cos_Ratio; 
—  Taylor  cosine  radian  Junctions 

function  Cos_R_8term(Input  s  Radians)  return  Sin_Cos_Ratio; 
function  Cos_R_7term(Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Cos_R_6term( Input  ;  Radians)  return  Sin_Cos_Ratio; 
function  Cos_R_5term(Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Cos_R_4term( Input  :  Radians)  return  Sin_Cos_Ratio; 

—  Modified  Taylor  cosine  radian  Junctions 
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function  Mod_Cos  R_8term(Inpvt  :  Radians)  return  Sin_Cos_Ratio; 
function  Mod_Cos_R_7term(Input  :  Radians)  return  Sin_Cos_Rat 
function  Mod_Cos_R_6term(Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Mod_Cos_R_5term(Input  :  Radians)  return  Sin_Cos_Ratio; 
function  Mod_Cos_R_4term(Input  :  Radians)  return  Sin_Cos_Ratio; 

—  Taylor  tangent  radian  Junctions 

function  Tan_R_8term  (Input  :  Radians)  return  TanRatio; 

—  Modified  Taylor  tangent  functions 

function  Mod_Tan_R_8term  (Input  :  Radians)  return  TanRatio; 
function  Mod_Tan_R_7 term  (Input  s  Radians)  return  Tan_Ratio; 
function  Mod_Tan_R_6term  (Input  :  Radians)  return  Tan_Ratio; 
function  Mod_Tan_R_5term  (Input  :  Radians)  return  Tan_Ratio; 
function  Mod_Tan_R_4term  (Input  :  Radians)  return  TanRatio; 

—  Taylor  arcsine  radian  Junctions 

function  Arcs in_R_8 term  (Input  :  Sin_Cos_Ratio)  return  Radians; 
function  Arcs in_R_7 term  (Input  :  Sin_Cos_Ratio)  return  Radians; 
function  Arcsin_R_6term  (Input  s  Sin_Cos_Ratio)  return  Radians; 
function  Arcsin_R_5term  (Input  :  Sin_Cos_Ratio)  return  Radians; 

—  Taylor  arccosine  radian  Junctions 

function  Arccos_R_8term  (Input  :  Sin_Cos_Ratio)  return  Radians; 
function  Arccos_R_7term  (Input  :  Sin_Cos_Ratio)  return  Radians; 
function  Arccos_R_6term  (Input  ;  Sin_Cos_Ratio)  return  Radians; 
function  Arccos_R_5term  (Input  :  Sin_Cos_Ratio)  return  Radians; 

— "  Taylor  arctangent  radian  functions 

function  Arctan_R_8term  (Input  s  Tan_Ratio)  return  Radians; 
function  Arctan_R_7term  (Input  s  Tan_Ratio)  return  Radians; 
function  Arctan_R_6term  (Input  s  Tan_Ratio)  return  Radians; 
function  Arctan  R_5term  (Input  :  Tan_Ratio)  return  Radians; 
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function  Arctan_R_4term  (Input  :  Tan_Ratio)  return  Radians; 

—  "  A  he  male  Taylor  arctangent  radian  functions 

function  Alt_Arctan_R_8term  (Input  :  Tan_Ratio)  return  Radians; 
function  Alt_Arctan_R_7 term  (Input  :  Tan_Ratio)  return  Radians; 
function  Alt_Arctan_R_6term  (Input  :  Tan_Ratio)  return  Radians; 
function  Alt_Arctan_R_5term  (Input  :  Tan_Ratio)  return  Radians; 
function  Alt_Arctan_R_4term  (Input  :  Tan_Ratio)  return  Radians; 
end  Tay lo  r_Rad i an_0pe  r a t i ons ; 


pragma  PAGE; 
generic 

type  Degrees  is  digits  <>; 

type  Real  is  digits  <>; 

type  Sin_Cos  Ratio  is  digits  <>; 

type  Tan_RatIo  is  digits  <>; 

with  function  (Left  >  Degrees; 

Right  :  Degrees)  return  Real  is  <>; 

package  TaylorDegreeOperations  is 

—  "  Taylor  sine  degree  Junctions 

function  Sin_D_8term  (Input  :  Degrees)  return  SinCosRatio; 

function  Sin_D_7term  (Input  s  Degrees)  return  Sin_Cos_Ratio; 

function  Sin_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 

function  Sin_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 

— "  Modified  Taylor  sine  degree  functions 

function  Mod_Sin  P_8term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
function  Mod_Sin_D_7 terra  (Input  s  Degrees)  return  Sin_Cos_Ratio; 
function  Mod_Sin_D_6term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
function  Mod_Sin_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
function  Mod_Sin_D_4term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
— "  Taylor  cosine  degree  functions 

function  Cos_D_8term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
function  Cos_D_7term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 
function  Cos  D  6term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 


f§ 
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function  Cos_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 

Modified  Taylor  cosine  degree  functions 

function  Mod_Cos_D_8term  (Input  :  Degrees)  return  Sin_Cos  Ratio; 

function  Mod_Cos_D_7term  (Input  :  Degrees)  return  Sin_Cos  Ratio; 

function  Mod_Cos_D_6term  (Input  :  Degrees)  return  Sin_Cos  Ratio; 

function  Mod_Cos_D_5term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 

function  Mod_Cos_D_4term  (Input  :  Degrees)  return  Sin_Cos_Ratio; 

— "  Taylor  tangent  degree  functions 

function  Tan_D_8term  (Input  s  Degrees)  return  Tan_Ratio; 

— "  Modified  Taylor  tangent  degree  functions 

function  Mod_Tan_D_8term  (Input  :  Degrees)  return  Tan_Ratio; 

function  Mod_Tan_D_7term  (Input  :  Degrees)  return  Tan_Ratio; 

function  Mod_Tan_D_6term  (Input  t  Degrees)  return  TanRatio; 

function  Mod_Tan_D_5term  (Input  s  Degrees)  return  TanRatio; 

function  Mod_Tan_D_4term  (Input  :  Degrees)  return  Tan  Ratio; 

end  Taylor_Degree_Operations; 

pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 

type  Outputs  is  digits  <>; 

with  function  (Left  :  Inputs; 

Right  :  Inputs)  return  Outputs  is  <>; 
package  Taylor_Natural_Log  is 

function  Nat_Log_8term  (  Input  :  Inputs  )  return  Outputs; 

function  Nat_Log_7term  (  Input  :  Inputs  )  return  Outputs; 

function  Nat_Log_6term  (  Input  :  Inputs  )  return  Outputs; 

function  Nat_Log_5term  (  Input  :  Inputs  )  return  Outputs; 

function  Nat_Log_4term  (  Input  :  Inputs  )  return  Outputs; 

end  Taylor_Natural_Log; 

pragma  PAGE; 
generic 

type  Inputs  is  digits  <>; 

type  Outputs  is  digits  <>; 

Base  N  :  in  POSITIVE  s-  10; 
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with  function  (Left  :  Inputs; 

Right  :  Inputs)  return  Outputs  is  <>; 
package  Taylor_Log_Base_N  is 

package  Log_Base_N  8term  is 

function  Log  N_5term  (  Input  :  Inputs  )  return  Outputs; 
end  Log_B  a  s  e_N_8  term; 

package  Log_Base_N  7 term  is 

function  Log  N_7term  (  Input  s  Inputs  )  return  Outputs; 
end  Log_Base_N_7tirm; 

package  Log_Base_N  6 term  is 

function  Log  N_Sterm  (  Input  :  Inputs  )  return  Outputs; 
end  Log_Base_N_S  term; 

package  Log_Base_N  5term  is 

function  Log  N_5term  (  Input  :  Inputs  )  return  Outputs; 
end  Log_Base_N_5term; 

package  Log_Base_N  4term  is 

function  Log  N_5term  (  Input  :  Inputs  )  return  Outputs; 
end  Log_Base_N_5  term; 

end  Taylor_Log_Base_N; 

end  TaylorSeries; 


end  Polynomials; 


■V 
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3. 6. 8. 9  QUATERNION_OPERATIONS  (PACKAGE  SPECIFICATION)  TLCSC  (CATALOG  #P123-0) 

This  part,  which  is  designed  as  an  Ada  package,  contains  specifications  for  all 
CAMP  parts  which  can  be  used  on  Quaternions.  These  parts  apply  to  missile 
navigation. 

3. 6. 8. 9.1  REQUIREMENTS  ALLOCATION 
None. 

3. 6. 8. 9. 2  INPUT/OUTPUT 
None. 

3. 6. 8. 9. 3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 6. 8. 9. 4  LOCAL  ENTITIES 
None. 


3. 6. 8. 9. 5  INTERRUPTS 


None. 


3. 6. 8. 9. 6  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 
with  Quaternion_Operations; 
with  Basic_Data_Types; 

•  •  • 

package  BDT_PKG  renames  Basic_Data_Types; 

•  •  • 

type  Quatlndices  is  (Q0,Q1,Q2,Q3); 

type  Quaternion_Vectors  is  array  (Quat_Indices) 

of  BDT_PKG.Trig. Sin_Cos_Ratio; 

function  (Left  :  BDT_PKG.Trig.Sin_Cos_Ratio; 

Right  :  FLOAT)  return  BDT_PKG.Trig.Sin_Cos_Ratio; 

package  QuatPKG  is  new 

Quaternion_Operations 

(Quaternion_Indices  =>  Quat_Indices, 

Sin_Cos  Ratio  ■>  BDT_PKG.Trig. Sin_Cos_Ratio, 
QuaternIon_Vectors  =>  Quaternion  Vectors; 

Real  ->  FLOAT); 


•  •  • 
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3. 6. 8. 9. 7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3. 6. 8. 9. 8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


!  Name 


Type  |  Description 


Qua  t  e  rn i onCompu  t  ed_Fr om 
_Euler_Angles 


NormalizedQuaternion 

"*« 


generic  |  Computes  the  unit  Quaternion 
function  j  that  represents  the 

|  orientation  of  one  frame  to 

!  another. 


generic 

function 


Normalizes  a  Quaternion  when 
applied  repeatedly. 


generic 

function 


Co-*  uves  the  product  of  two 
Quaternions. 


3. 6. 8. 9. 9  PART  DESIGN 

3. 6. 8. 9. 9.1  QUATERNIONCOMPUTEDFROMEULERANGLES  (CATALOG  #P124-0) 

This  part  computes  the  unit  Quaternion,  Q,  that  represents  the  orientation  of 
frame  xyz  with  respect  to  XYZ  (i.e.  Q  rotates  XYZ  into  xyz)  given  the  Euler 
angles  relating  xyz  to  XYZ. 


3. 6. 8. 9. 9. 1.1  REQUIREMENTS  ALLOCATION 
None. 


3. 6. 8. 9. 9.1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 
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|  Name 


|  Type  |  Description 


EulerAngle 

Indices 


discrete 

type 


Data  type  representing  the  index  to  the 
vector  Euler_Angle_Vectors  which  has 
values  such  as  Psi,  Theta,  and  Phi. 


Angles 


EulerAngle 

Vectors 


floating 

point 

type 


Data  type  for  the  elements  of  the  Euler 
angle  vector. 


array 


Data  type  representing  the  Euler  angles. 


Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


Name  ! 

Type 

Value 

Description 

Psi  | 

Euler 

Angle 

'indices 

' FIRST 

This  object  is  the  first  Euler  angle 
rotation  that  rotates  XYZ  into 

X'Y'Z'  by  rotating  XYZ  thru 
the  angle  Psi  about  the  Z-axis. 

Theta  | 

Euler 

Angle 

Indices 

'SUCC 

(Psi) 

This  object  is  the  second  Euler  angle 
rotation  that  rotates  X'Y'Z'  into 

X"Y"Z"  by  rotating  X'Y'Z'  thru 
the  angle  Theta  about  the  Y'-axis. 

Phi  i 

Euler 

Angle 

_Indices 

'LAST 

This  object  is  the  third  Euler  angle 
rotation  that  rotates  X"Y"Z"  into 
X'"Y'"Z'"  by  rotating  X"Y"Z"  thru 
the  angle  Phi  about  the  X"-axis. 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

Type 

|  Description  | 

| Sin_Cos 

procedure 

|  Procedure  returning  the  sine  and  cosine  of  an  euler 
|  angle  (of  type  "Angles") 

1 

|  «*« 

1 

function 

l 

|  Function  multiplying  a  type  Sin_Cos_Ratio  by  a  type 
Real  returning  type  Sin_Cos_Ratio. 

FORMAL  PARAMETERS: 
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The  following 

table  describes 

this 

part's  formal  parameters: 

|  Name 

!  Type  | 

Mode 

|  Description  | 

|  Euler  Angles 

s 

1 

|  Euler  | 

j  _Angle  j 

j  _Vectors  | 

In 

|  This  value  is  a  vector  representing  the  | 
j  euler  angles.  j 

1  1 

3.6.8.9.9.1.3 

INTERRUPTS 

None. 

3. 6. 8. 9. 9. 1.4 

TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 


with  Quaternion_Operations; 
with  Basic_Data_Types; 

•  •  • 

package  BDT_PKG  renames  Basic_Data_Types; 

•  *  • 

type  Quatlndices  is  (Q0,Q1,Q2,Q3); 

type  QuaternionVectors  is  array  (Quatlndices) 

of  BDT  PKG. Trig. Sin  Cos  Ratio; 


type  Euler_Indices 
type  EulerAngles 
type  Euler_Vectors 


is  (psi,  Theta,  Phi); 

is  new  BDT  PKG. Trig. Radians; 

is  array  (Iuler_Indices)  of  Euler_Angles ; 


function  (Left 
Right 


BDT_PKG. Trig. Sin  Cos  Ratio; 

FLOAT)  return  BDTPKG.Trig.SinCosRatio; 


package  Qua t  PKG  is  new 

Quaternion_Operations 
(Quaternion_Indices  ->  Quat  Indices, 

Sin_Cos  Ratio  ■>  BDT_PKG.Trig.Sin_Cos_Ratio, 
QuaternTon_Vectors  ->  Quaternion  Vectors; 

Real  ->  FLOAT); 


procedure  Sin  Cos 

(value  :in  Euler_Angles ; 

Sin_of_Wander_Angle  s  out  BDT_PKG.Trig. Sin_Cos_Ratio; 
Cos~of_Wander_Angle  :  out  BDT~PKG.Trig.  Sin_Cos_Ratio) ; 

function  Compute_Q_From_Euler_Angles  is  new 

Qua t_PKG. Quaternion  Computed_From_Euler_Angles 
(Euler_Angle_IndIces  «>  Euler~Indices, 

Angles  «>  Euler_Angles , 

Euler_Angle_Vectors  *>  Euler~Vectors) ; 

•  it 

Quaternion  :  Quaternion_Vectors; 

Euler  Angles  :  Euler  Vectors; 
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r»’N' 


begin 

Quaternion  :=  Compute_Q_From_Euler_Angles  (Euler_Angles) ; 


3. 6. 8. 9. 9. 1.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performec  by  this  Unit. 


3. 6. 8. 9. 9. 1.6  DECOMPOSITION 
None. 


3. 6. 8. 9. 9. 2  NORMALIZEDQUATERNION  (CATALOG  IP125-0) 

This  function  normalizes  a  Quaternion  when  applied  repeatedly.  One  iteration 
will  not  (in  most  cases)  normalize  the  Quaternion.  The  frequency  of  execution 
is  dependent  upon  the  desired  accuracy,  the  length  of  the  time  interval  between 
updates,  and  other  application-dependent  factors.  This  part  is  usually  applied 
repeatedly  over  time. 


3. 6. 8. 9. 9. 2.1  REQUIREMENTS  ALLOCATION 
None. 

3. 6. 8. 9. 9. 2. 2  INPUT/OUTPUT 
FORMAL  PARAMETERS: 


The  following 

table  describes 

this 

part's  formal  parameters: 

|  Name 

1  Type  | 

Mode 

|  Description  I 

|  Quaternion 

1 

|  Quaternion | 
Vectors  j 

In 

|  This  value  is  a  vector  representing  a  | 

Quaternion  vector. 

3. 6. 8. 9. 9. 2. 3 

INTERRUPTS 

None. 
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type  Quat  lndices  is  (Q0,Q1 ,Q2 ,Q3) ; 

type  Quaternion_Vectors  is  array  (Ouat_Indices) 

of  3DT_PKG.Trig. Sin_Cos_Ratio; 
function  (Left  :  BDT_PKG.Trig. Sin_Cos_Ratio; 

Right  :  FLOAT)  return  BDT_PKG.Trig.Sin_Cos_Ratio; 

package  QuatPKG  is  new 

Qua ternion_Operat ions 
(Quaternion_Indices  =>  Quat_Indices, 

Sin_Cos  Ratio  =>  BDT_PKG.Trig. Sin_Cos_Ratio, 

QuaternIon_Vectors  *>  Quaternion_Vectors; 

Real  ->  FLOAT); 

•  •  • 

Quaternion  s  Quaternion_Vectors; 

•  »  • 
begin 
•  •  • 

Quaternion  Quat  PKG. Normalized  Quaternion  (Quaternion); 


3. 6. 8. 9. 9. 2. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 9. 9. 2. 6  DECOMPOSITION 
None. 


3. 6. 8. 9. 9. 3  (CATALOG  IP128-0) 

This  generic  function  computes  the  product  of  tvo  Quaternions. 


3. 6. 8. 9. 9. 3.1  REQUIREMENTS  ALLOCATION 
None. 


3. 6.8. 9. 9. 3. 2  INPUT/OUTPUT 
FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name  |  Type  |  Mode  |  Description 


Quaternion  A 


Quaternion 

Vectors 


In 


This  value  is  a  vector  representing  a 
Quaternion  vector. 


Quaternion_B 


Quaternion 

Vectors 


In 


This  value  is  a  vector  representing  a 
Quaternion  vector. 
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3. 6. 8. 9. 9. 3. 3  INTERRUPTS 


None. 


3. 6. 8. 9. 9. 3. 4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Quaternion_Operations j 
with  Basic_Data_Types; 

package  BDT_PKG  renames  Basic_Data_Types; 

type  Quat_Indices  is  (Q0,Q1,Q2,Q3) ; 

type  Quaternion_Vectors  is  array  (Quat_Indices) 

of  BDT_PKG.Trig.Sin_Cos_Ratio; 
function  (Left  :  BDT_PKG. Trig. Sin  Cos_Ratio;  ~ 

Right  :  FLOAT)  return  BDT_PKG.Trig.Sin_Cos_Ratio; 

package  Quat_PKG  is  new 

Qua t e rn i on_Ope r a t i on s 
(Quaternion_Indices  ->  Quat  Indices, 

Sin^Cos  Ratio  ->  BDT_PKG.Trig.Sin_Cos_Ratio, 
Quaternion  Vectors  ->  Qua ternionVec tors; 

Real  ~  «>  PLOAT); 

*  *  * 

QuaternionA  :  QuaternionVectors; 

QuaternionB  :  QuaternionVectors ; 

QuaternionC  :  QuaternionVectors; 

•  •  • 
begin 
*  •  • 

Quaternion_C  :■  Quaternion_A  *  Quaternion_B; 


3. 6. 8. 9. 9. 3. 5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3. 6. 8. 9. 9. 3. 6  DECOMPOSITION 


None. 
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generic 


type  Quaternion_Indices  is 
type  Sin_Cos_Ratio  is 
type  Quaternior_Vectors  is 

type  Real  is 


(<>); 

digits  <>; 

array  (Quaternion_Indices) 
of  Sin_Cos_Ratio; 
digits  <>; 


with  function  (Left  :  Sin  Cos_Ratio; 

Right  :  Real) 

return  Sin  Cos  Ratio  is  <>; 


QO  :  in  Quaternion_Indices  :*=  Quaternion_Indices' FIRST; 

Q1  :  in  Quaternionlndices  :*=  Quaternion~Indices'SUCC(QO) ; 

Q2  :  in  Quaternionlndices  := 

Quaternion_Indices '  SUCC(Quaternion_Indices'  SUCC(QO) ) ; 
Q3  :  in  QuaternionJEndices  :«  Quaternion_Indices'LAST; 


package  Quaternion_Operations  is 


pragma  PAGE; 
generic 


type  EulerAnglelndices  is  (<>); 

type  Angles  is  digits  <>; 

type  Euler  Angle  Vectors  is  array  (Euler  Angle  lndices) 

of  Angles; 


Psi  j  in  EulerAnglelndices  :«  EulerAnglelnd ices 'FIRST; 
Theta  :  in  Euler_Angle_Indices  Euler_Angle_Indices'SUCC(Psi); 
Phi  :  in  Euler_Angle_Indices  :«  Euler_Angle_Indices'LAST; 


with  procedure  Sin_Cos  (Input 

Sin_Value 
Cos  Value 


in  Angles ; 

out  Sin_Cos_Ratio; 

out  Sin  Cos  Ratio)  is  <>; 


function  Quaternion_Computed_From  Euler_Angles 

(  Euler_AngIes  s  ~Euler_Angle_Vectors  ) 
return~Quaternion_Vectors; 


pragma  PAGE; 

function  Normalized_Quaternion  (Quaternion  :  Quaternion_Vectors) 

return  Quaternion_Vectors; 


pragma  PAGE; 

function  (Quaternion_A  s  Quaternion_Vectors; 

Quaternion_B  :  Quaternion_Vectors) 
return  Quaternion_Vectors; 


end  Quaternion  Op^^ations; 
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3.6.9  ABSTRACT  MECHANISMS 
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3. 6. 9.1  ABSTRACT J)ATA_STRUCTURES  (PACKAGE  SPECIFICATION)  TLCSC  (CATALOG  #P323-0) 

This  package  contains  the  generic  packages  required  to  define  and  manipulate 
the  following  abstract  data  structure?-: 
o  bounded  FIFO  buffer 
o  unbounded  FIFO  buffer 
o  nonblocking  circular  buffer 
o  unbounded  priority  queue 
o  bounded  stack 
o  unbounded  stack 


3. 6. 9. 1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  CAMP  requirements  to  this 
part: 


|  Name 

1 

Requirements  Allocation 

|  Bounded  FIFO  Buffer 

7 

R125 

j  Unbounded  FIFO_Buffer 

R164 

j  Nonblocking_Circular_3uffer 

R126 

j  Unbounded  Priority  Queue 

R165 

j  Bounded_Stack 

R166 

j  Unbounded_Stack 

i 

R167 

3. 6. 9. 1.2  INPUT/OUTPUT 
None. 

3. 6. 9. 1.3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 


3. 6. 9. 1.4  LOCAL  ENTITIES 
None. 


3. 6. 9. 1.5  INTERRUPTS 
None. 

3. 6. 9. 1.6  TIMING  AND  SEQUENCING 


None. 


CAMP  Software  Top  Level  Design  Document 


Page  794 


3.6. 9. 1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3.6.9. 1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 


Type  |  Description 


Bounded  FIFO  Buffer 

generic 

package 

Unbounded  FIFO  Buffer 

generic 

package 

Nonblocking  Circular  Buffer 

generic 

package 

Unbounded  Priority  Queue 

generic 

package 

Bounded_Stack 

generic 

package 

Unbounded_Stack 

generic 

package 

1 

Defines  and  provides  operations 
required  to  manipulate  a 
bounded  FIFO  buffer 
Defines  and  provides  operations 
required  to  manipulate  an 
unbounded  FIFO  buffer 
Defines  and  provides  operations 
required  to  manipulate  a 
nonblocking  circular  buffer 
Defines  and  provides  operations 
required  to  manipulate  an 
unbounded  priority  queue 
Defines  and  provides  operations 
required  to  manipulate  a 
bounded  stack 

Defines  and  provides  operations 
required  to  manipulate  an 
unbounded  stack 


3. 6. 9. 1.9  PART  DESIGN 

3. 6. 9. 1.9.1  BOUNDEDFIFOBUFFER  (PACKAGE)  (CATALOG  #P324-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  first-in-first-out  buffering  operations  on  incoming  data.  The  head 
always  points  to  a  dummy  node.  The  first  node  following  the  dummy  node 
contains  the  next  piece  of  data  to  be  retrieved.  The  tail  always  points  to 
where  the  next  element  should  be  added.  If  the  tail  points  to  the  element 
immediately  in  front  of  the  head,  the  buffer  is  empty.  If  the  tail  points  to 
the  same  element  as  the  head,  the  buffer  is  full.  Since  the  buffer  is 
implemented  as  an  array,  the  head  and  tail  will  advance  through  the  array  in  a 
circular  fashion,  but  no  overwriting  of  data  currently  in  the  buffer  will  be 
permitted. 

Empty  FIFO  buffer:  +-+  < - Head 

+-+ 

+-+  +-+  < - Tail 

+-+  +-+ 

+-+ 

+-+ 

Full  FIFO  buffer:  Tail - >+-+  < - Head 

+-+ 

+-+  +-+ 
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+-+  +-+ 

+-+ 

+-+ 

This  part  has  been  designed  so  that  the  following  routines  may  be  used 
by  two  tasks  of  different  priorities  as  long  as  one  is  only  putting 
things  in  the  buffer  and  the  other  is  only  removing  things  from  the 
buffer: 

o  Add  Element 
o  BuflerStatus 
o  RetrieveElement 
o  Peek 

Neither  BufferLength  or  ClearBuffer  should  be  used  by  tasks  of  differing 
priorities  as  described  above.  Buffer  Length  should  not  be  used  since  the 
internally  stored  buffer  length  could  Have  become  corrupted  although  the  buffer 
itself  remain  intact.  Clear_Buffer  should  be  not  be  called  since  it  could 
result  in  the  buffer  becoming  corrupted. 

The  following  table  shows  which  exceptions  are  raised  by  which  unit  in  this 
package : 


|  Name  of  routine  \ 

Exception 

1 

1 

j  raising  exception  \ 

raised  «> 

j  BufferFull 

Buffer_Empty  | 

|  Add_Element 
j  Retrieve  Element 

1  x 

1 

1 

x  1 

|  Peek 

1 

x  1 

3. 6. 9. 1.9. 1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  required  R125. 

3. 6. 9. 1.9. 1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 
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|  Name 

Type 

Value 

|  Description  | 

|  Initial 
j  Buffer_Size 

POSITIVE 

N/A 

|  Maximum  number  of  elements  which  can  | 

be  in  the  buffer  at  any  given  time  j 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 


|  Name  |  Description 


|  Buffer  Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or  | 
I  j  retrieve  elements  from  an  empty  buffer 

j  BufferFull  j  Error  condition  raised  if  an  attempt  is  made  to  add 
j  j  elements  to  a  full  buffer  j 


Data  types: 

One  of  the  data  types  exported  by  this  part  is  "buffers”.  Since  this  is  a 
limited  private  type,  the  only  way  the  user  can  access  the  buffer  is  through 
functions  and  procedures  contained  in  this  part. 

The  following  chart  summarizes  the  data  types  exported  by  this  part: 


|  Name 

Type 

Range 

|  Description 

1 

Buffer  Range 

NATURAL 

0  .. 

|  Used  to  dimension  the  list  of 

1 

subtype 

Buffer  Size 

1  elements 

1 

Buffers 

limited 

N/A 

j  List  of  data  along  with  relevant 

private 

information 

1 

Buffer 

discrete 

Empty, 

j  Used  to  indicate  the  status  of 

1 

Statuses 

type 

Available, 

j  the  buffer 

1 

Full 

! 

1 

Data  objects: 

The  following  table  describes  the  data  objects  exported  by  this  part: 


|  Name 

Type 

Value 

Description  | 

|  Buffer  Size 

1 

POSITIVE 

Initial_ 

Buf fer~Size 

Number  of  usable  elements  in  a  | 

buffer  j 
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3.6.9. 1.9. 1.3  LOCAL  ENTITIES 
None. 


3. 6. 9. 1.9. 1.4  INTERRUPTS 
None. 


3. 6. 9. 1.9. 1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Abstract_Data_Structures; 

package  ADS  renames  Abstract_Data_Structures; 

type  Messages  is  ... 

•  •  • 

Max_Message_Count  :  constant  :•=  15; 

•  •  • 

package  Bounded_FIFO  is  new  ADS.Bounded_FIFO_Buf fer 
(Elements  ■>  Messages, 

InitialBufferSize  ->  MaxMessageCount) ; 

•  •  • 

MessageBuffer  j  BoundedFIFO. Buffers; 

NevMessage  :  Messages; 

Next  Message  :  Messages; 

•  •  • 

begin 

i  »  « 

Bounded_FIFO .  Clear_Buf  f  er  (  Message_Buf  f  er ) ; 

•  •  • 

Bounded_FIFO.Add_Element(Nev_Message,  Message_Buffer) ; 
Bounded_FIFO .  Re t r ieve_Elemen t  ( Message_Buf f er ,  Nex t_Messag'e ) ; 


3. 6. 9. 1.9. 1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 9. 1.9. 1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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Name 

1  Type 

Description 

i 

Clear  Buffer 

|  procedure 

Clears  the  contents  of  the  buffer 

i 

Add  Element 

j  procedure 

Adds  an  element  to  the  end  of  the  buffer 

f 

Retrieve 

|  procedure 

Removes  an  element  from  the  front  of  the 

1 

Element 

1 

buffer 

1 

Peek 

|  function 

Looks  at  first  element  at  the  front  of  the 

1 

buffer  without  altering  the  buffer's 

1 

contents 

1 

Buffer  Status 

|  function 

Returns  the  status  of  the  buffer 

l 

Buffer  Length 

j  function 

Returns  the  number  of  elements  currently  in 

the  buffer 

1 

3. 6. 9. 1.9. 1.8  PART  DESIGN 
None. 


3. 6. 9. 1.9. 2  UNBOUNDED_FI FO_BUFFER  (PACKAGE)  (CATALOG  #P325-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perforin  first-in-first-out  buffering  operations  on  incoming  data.  The  head 
of  the  buffer  always  points  to  a  dummy  node.  The  first  node  following  the 
dummy  node  contains  the  next  piece  of  data  to  be  retrieved.  The  tail  always 
points  to  the  node  containing  the  last  element  added  to  the  buffer.  If  the 
tail  points  to  the  same  node  as  the  head,  the  buffer  is  empty. 

A  buffer  must  be  initialized  before  it  is  used.  If  an  attempt  is  made  to  use 
an  uninitialized  buffer,  the  exception  Buffer  Not  Initialized  will  be  raised. 
The  Initialized_Buffer  function  returns  an  initialized  buffer.  The  Clear_- 
Buffer  procedure  returns  the  nodes  of  a  buffer  to  the  available  space  list  and 
then  returns  an  initialized  buffer. 

An  available  space  list  is  maintained  local  to  this  part.  Vhen  this  part  is 
elaborated  the  available  space  list  will  have  a  dummy  node  plus  Initial  - 
Available  SpaceSize  nodes.  Vhen  nodes  are  added  to  the  buffer,  the  Ad3_- 
Element  routine  will  try  to  get  a  node  from  the  available  space  list  before 
attempting  to  allocate  more  memory.  Vhen  the  Retrieve  Element  routine  is 
called,  the  unused  node  will  be  returned  to  the  availaSle  space  list  for  later 
use.  The  memory  committed  to  the  available  space  may  be  deallocated  by  calling 
the  Free_Memory  procedure. 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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Name  |  When/Vhy  Raised 


StorageError 


Buf f er_Empty 


Buf fer_Not_ 
Initialized 


Raised  during  elaboration  of  this  package  or  by  one  of  the 
following  routines  if  an  attempt  is  made  to  allocate  more 
memory  than  is  available: 
o  Initialized_Buf fer 
o  Add_Element 

Raised  by  the  following  routines  if  an  attempt  is  made  to 
access  an  empty  buffer: 
o  Peek 

o  Retrieve_Element 

Raised  by  the  following  routines  if  an  attempt  is  made  to 
use  an  uninitialized  buffer: 
o  Retrieve_Element 
o  Add  Element 
o  Peeic 

o  Buffer_Length 
o  Clear  Buffer 


3. 6. 9. 1.9. 2.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R164. 

3. 6. 9. 1.9. 2. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

!  Type 

|  Description 

1 

|  Initial  Available_ 

|  Space  Size 

|  NATURAL 

1 

|  Number  of  nodes 
|  the  available 

to  be  initially  placed  in  | 
space  list  •  j 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 


CAMP  Software  Top  Level  Design  Document 


Page  800 


Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 


|  Name 


Description 


Buf fer_Empty 

Buf fer_Not_ 
Initialized 
Storage_Error 


Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
retrieve  elements  from  an  empty  buffer 
Raised  if  an  attempt  is  made  to  use  an  uninitialized  buffer 

Raised  if  an  attempt  is  made  to  allocate  more  memory  than 
is  available 


Data  types: 

The  data  type  exported  by  this  part  is  "buffers”.  Since  this  is  a  limited 
private  type,  the  only  way  the  user  can  access  the  buffer  is  through  functions 
and  procedures  contained  in  this  part. 

The  following  chart  summarizes  the  data  types  exported  by  this  part: 


|  Name 

Type 

Range  . 

|  Description 

|  Buffers 

limited 

N/A 

|  List  of  data  along  with  relevant 

private 

j  information 

j  Buffer 

discrete 

Uninitialized, 

j  Used  to  indicate  the  status  of  the 

j  Statuses 

type 

Empty, 

j  buffer 

Available 

1 

3.6.9. 1.9. 2. 3  LOCAL  ENTITIES 
Data  structures: 

An  available  space  list  is  maintained  local  to  this  part's  package  body. 

3.6. 9. 1.9. 2. 4  INTERRUPTS 
None. 

3. 6. 9. 1.9. 2. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Abstract_Data_Structures; 

package  ADS  renames  Abstract_Data_Structures; 
type  Messages  is  . . . 

Ini tial_Space_Size  :  constant  :=  15; 
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package  Unbounded_FIF0  is  new  ADS.Unbounded_FIFO  Buffer 
(Elements  =>  Messages, 

Initial_Available_Space_Size  =>  Initial_Space_Size) ; 

Message_Buffer  :  Unbounded_FIF0. Buffers; 

New_Message  :  Messages; 

Next_Message  :  Messages; 

begin 

Unbounded_FIFO.Initialize_Buf fer(Message  Buffer) ; 
Unbounded_FIFO.Add_Element(New_Message,  Message_Buf fer) ; 
Unbounded_FIFO.Retrieve_Element(Message_Buffer,  Next_Message) ; 


3.6.9. 1.9. 2. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 9. 1.9. 2. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name 

Type  |  Description  | 

|  Initialize 

function  |  Returns  an  initialized  buffer 

j  Buffer 

1 

j  Clear  Buffer 

procedure  j  Clears  the  contents  of  the  buffer 

j  Free  Memory 

procedure  j  Deallocates  the  memory  allocated  to  the 

|  available  space  list 

j  Add  Element 

procedure  j  Adds  an  element  to  the  end  of  the  buffer 

j  Retrieve 

procedure  j  Removes  an  element  from  the  front  of  the 

j  Element 

j  buffer 

j  Peek 

function  j  Looks  at  first  element  at  the  front  of  the 

1 

j  buffer  without  altering  the  buffer's 

1 

j  contents 

|  Buffer  Status 

function  j  Returns  the  status  of  the  buffer 

j  Buffer  Length 

function  j  Returns  the  number  of  elements  currently  in 

j  the  buffer 

3. 6. 9. 1.9. 2. 8  PART  DESIGN 


None. 


3. 6. 9. 1.9. 3  NONBLOCKINGCIRCULARBUFFER  (PACKAGE)  (CATALOG  #P326-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  circular  buffering  operations  on  incoming  data.  These  operations 
are  performed  in  a  non-blocking  fashion  such  that  if  the  buffer  is  full, 
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incoming  data  will  overwrite  old  data.  The  head  of  the  buffer  always  points  to 
a  dummy  node.  The  first  node  following  the  dummy  node  contains  the  next  piece 
of  data  to  be  retrieved.  The  tail  always  points  to  where  the  next  element 
should  be  added.  If  the  tail  points  to  the  element  immediately  in  front  of  the 
head,  the  buffer  is  empty.  If  the  tail  points  to  the  same  element  as  the  head, 
the  buffer  is  full.  This  is  illustrated  below. 

Empty  circular  buffer:  +-+  < - Head 

+-+  +-+  < - Tail 

+-+  +-+ 

+-+ 

+-+ 


Full  circular  buffer:  Tail - >+-+  < - Head 

+-+ 

+-+  +-+ 

+-+  +— + 

+~ f 
+-+ 


The  following  table  shows  which  exceptions  are  raised  by  vh  h  >>nit  in  this 
package : 


|  Name  of  routine  \  Exception 

I  raising  exception  \  raised  ->  j  Buffer_Empt> 


|  RetrieveElement  |  X 

j  Peek  “  j  X  | 


3. 6. 9. 1.9. 3.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R126. 

3.6.9. 1. 9.3.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  buffer  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 
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|  Name 

Type 

Value 

|  Description  | 

|  Initial 
j  Buffer  Size 

POSITIVE 

N/A 

|  Maximum  number  of  elements  which  can  | 

|  be  in  the  buffer  at  any  given  time  | 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 


|  Name 

Description  | 

|  Buffer  Empty 

I 

1 

Error  condition  raised  if  an  attempt  is  made  to 
look  at  or  retrieve  elements  from  an  empty  i 

buffer  i 

Data  types: 

One  of  the  data  types  exported  by  this  part  is  "buffers".  Since  this  is  a 
limited  private  type,  the  only  way  the  user  can  access  the  buffer  is  through 
functions  and  procedures  contained  in  this  part. 

The  following  chart  summarizes  the  data  types  exported  by  this  part: 


|  Name 

Type 

Range 

J  Description 

I  Buffer  Range 

NATURAL 

0  .. 

|  Used  to  dimension  the  If  Li t  of 

subtype 

Buffer  Size 

j  elements 

j  Buffers 

limited 

N/A 

j  List  of  data  along  with  relevant 

private 

j  information 

j  Buffer 

discrete 

Empty, 

j  Used  to  indicate  the  status  of 

j  Statuses 

type 

Available, 

the  buffer 

Full 

1 

Data  objects: 

The  following  table  describes  the  data  objects  exported  by  this  part: 


|  Name 

Type  | 

Value 

|  Description  | 

|  Buffer  Size 

1 

POSITIVE  | 

1 

Initial 

Buf fer_Size 

|  Number  of  usable  elements  in  a  | 

I  buffer 
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3. 6. 9. 1.9. 3. 3  LOCAL  ENTITIES 


None. 


3. 6. 9. 1.9. 3. 4  INTERRUPTS 


None. 


3. 6. 9. 1.9. 3. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Abstract_Data_Structures; 

•  *  • 

package  ADS  renames  Abstract_Data_Structures; 

type  Messages  is  ... 

Max_Message_Count  :  constant  :=  15; 

*  •  • 

package  Circ  Buffer  is  new  ADS. Nonblocking_Circular  Buffer 
(Elements  ■>  Messages, 

Initial  Buffer  Size  ->  MaxMessageCount); 

•  •  • 

MessageBuffer  :  CircBuffer. Buffers; 

NewMessage  :  Messages; 

NextMessage  :  Messages; 

•  •  • 

begin 

•  it 

Circ_Buffer.Clear_Buffer(Message_Buffer) ; 

•  •  • 

Circ_Buffer.Add_Element(Nev_Message,  Message_Buffer) ; 

•  •  • 

Circ_Buffer.Retrieve_Element(Message_Buf fer,  Next_Message) ; 


3. 6. 9. 1.9. 3. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 9. 1.9. 3. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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Name 

1  Type 

Description 

1 

Clear  Buffer 

|  procedure 

Clears  the  contents  of  the  buffer 

1 

Add  Element 

j  procedure 

Adds  an  element  to  the  end  of  the  buffer 

1 

Retrieve 

|  procedure 

Removes  an  element  from  the  from  of  the 

! 

Element 

1 

buffer 

I 

Peek 

|  function 

Looks  at  first  element  at  the  front  of  the 

1 

buffer  without  altering  the  buffer's 

1 

contents 

1 

Buffer  Status 

|  function 

Indicates  the  status  of  the  buffer 

1 

Buffer  Length 

|  function 

Returns  the  number  of  elements  currently  in 

1 

the  buffer 


3.6.9. 1.9. 3. 8  PART  DESIGN 


None. 


3.6.9. 1.9.4  UNBOUNDED_PRIORITY_QUEUE  (CATALOG  #P327-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  priority  queueing  operations  on  incoming  data.  The  head  of  the 
queue  always  points  to  a  dummy  node.  The  node  following  the  dummy  node 
contains  the  element  with  the  highest  priority.  The  tail  always  points  to  the 
element  with  the  lowest  priority. 

The  elements  will  be  ordered  in  the  queue  such  that: 

1)  Elements  with  higher  priorities  are  placed  before  those  with 
lower  priorities. 

2)  Elements  with  the  same  priority  are  arrange  in  the  queue  in 
a  first-in-first-out  manner. 

A  queue  must  be  initialized  before  it  is  used.  If  an  attempt  is  made  to  use  an 
uninitialized  queue,  the  exception  Queue  Not  Initialized  will  be  raised.  The 
Initialized_Queue  function  returns  an  initialized  queue.  The  Clear_Queue 
procedure  returns  the  nodes  of  a  queue  to  the  available  space  list  and  then 
returns  an  initialized  queue. 

An  available  space  list  is  maintained  local  to  this  part.  When  this  part  is 
elaborated  the  available  space  list  will  have  a  dummy  node  plus  Initial- 
Available  Space_Size  nodes.  When  nodes  are  added  to  the  queue,  the  Add_Element 
routine  will  try  to  get  a  node  from  the  available  space  list  before  attempting 
to  allocate  more  memory.  When  the  Retrieve  Element  routine  is  called,  the 
unused  node  will  be  returned  to  the  available  space  list  for  later  use.  The 
memory  committed  to  the  available  space  may  be  deallocated  by  calling  the 
Free_Memory  procedure. 

The  following  table  describes  the  exceptions  raised  by  this  part: 
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|  Name 


When/Why  Raised 


Storage_Error 


Queue  Empty 


Queue  Not  Initialized 


Raised  during  elaboration  of  this  package  or  by 
one  of  the  following  routines  if  an  attempt  is 
made  to  allocate  memory  when  no  more  is 
available: 

o  Initialized_Queue 
o  Add_Element 

Raised  by  the  following  routines  if  an  attempt  is 
made  to  access  an  empty  queue: 
o  Retrieve_Element 
o  Peek 

Raised  by  the  following  routines  if  an  attempt  is 
made  to  manipulate  an  uninitialized  queue: 

0  Add_Element 
o  Retrieve_Element 
o  Queue_Length 
o  Peek 

o  Clear  Queue 


3. 6. 9. 1.9. 4.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R165. 


3.6.9. 1.9. 4. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name  | 

Type  | 

Description  | 

|  Elements  | 

j  Priorities  j 

private  | 
private  j 

User  defined  type  of  data  contained  in  the  queue  | 

User  defined  type  determining  priority  of  the  node  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 

|  Name 

1  Type 

|  Description  | 

|  Initial 
j  AvailaEle_ 
j  Space_Size 

|  NATURAL 
1 

1 

|  Number  of  available  nodes  to  be  initially  ( 

j  placed  in  the  available  space  list  | 

1  1 
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Subprograms: 

The  following  table  summarizes  the  generic  formal  subroutines  required  by  this 
part : 


|  Name 

1  Type 

Description  | 

|  ">" 

|  function 

Used  to  determine  ordering  of  priorities  | 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS: 

Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 


|  Name  |  Description 


Queue_Empty 

Queue  Not_ 
Initialized 
Storage_ 
Error 


Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
retrieve  elements  from  an  empty  queue 
Indicates  an  attempt  was  made  to  use  an  uninitialized  queue 

Raised  if  an  attempt  is  made  to  allocate  more  memory  than 
is  available 


Data  types: 

The  data  type  exported  by  this  part  is  "queues".  This  type  consists  of  the 
pointers  to  the  nodes  of  user-defined  elements  and  priorities,  along  vith 
pertinent  information  about  the  queue.  Since  it  is  a  limited  private  type,  the 
only  way  the  user  can  gain  access  to  the  queue  is  through  functions  and 
procedures  contained  in  this  part. 

The  following  cnart  summarizes  the  data  types  exported  by  this  part: 


|  Name 


Type 


Range 


|  Description 


1 

Queues 

1 

limited 

1 

N/A 

|  List  of  data  along  vith  relevant 

1 

private 

1 

j  information 

1 

Queue 

1 

discrete 

1 

Uninitialized, 

|  Used  to  indicate  the  status  of  the 

1 

1 

Statuses 

1 

type 

1 

Empty, 

1  queue 

1 

1 

1 

Available 

1 

1 

3. 6. 9. 1.9. 4. 3  LOCAL  ENTITIES 
Data  structures: 

An  available  space  list  is  maintain  local  to  this  part's  package  body. 
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3. 6. 9. 1.9. 4. 4  INTERRUPTS 


None. 


3.6.9. 1.9. 4. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Abstract_Data_Structures; 

package  ADS  renames  Abstract_Data_Structures; 

type  Messages  is  ... 

•  •  • 

Initial_Space_Size  :  constant  :*  15; 

•  •  • 

package  Unbounded  Priority  is  new  ADS.Unbounded_Priority_Queue 
(Elements  *>  Messages, 

Initial_Available_Space_Size  =>  Initial_Space_Size) ; 

•  •  • 

Message_Queue  :  Unbounded_Priority. Queues; 

Nev_Message  :  Messages; 

Next_Message  :  Messages; 

•  •  • 

begin 
•  •  • 

UnboundedPriori  ty .  Ini  tialize(Queue) ; 

•  •  • 

Unbounded_Priority.Add_Element(New_Message,  Message  Queue) ; 

•  •  • 

Unbounded_Priority.Retrieve_Element(Message_Queue,  NextMessage) ; 


3. 6. 9. 1.9. 4. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  -LCSC. 


3. 6. 9. 1.9. 4. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


CAMP  Software  Top  Level  Design  Document 


Page  809 


Name 

1  Type 

! 

Description 

Initialize 

|  function 

1 

Returns  an  initialized  priority  queue 

Clear  Queue 

|  procedure 

Clears  the  contents  of  the  queue 

Free  Memory 

j  procedure 

1 

Deallocates  the  memory  allocation  to  the 

Add  Element 

1 

|  procedure 

1 

1 

available  space  list 

Adds  an  element  to  the  input  side  of  the 

Retrieve 

1 

|  procedure 

1 

1 

queue 

Removes  an  element  from  the  output  side  of 

Element 

Peek 

1 

|  function 

1 

the  queue 

Looks  at  first  element  on  the  front  of  the 

Queue  Status 

|  function 

1 

1 

queue  without  altering  the  queue's  contents 
Returns  the  status  of  the  queue 

Queue  Length 

|  function 

Returns  the  number  of  elements  currently  in 

1 

1 

the  queue 

3. 6. 9. 1.9. 4. 8  PART  DESIGN 
None. 


3. 6. 9. 1.9. 5  BOUNDED  STACK  (PACKAGE)  (CATALOG  #P328-0) 

This  generic  package  defines  the  data  type  and  contains  the  operations  required 
to  perform  last-in-first-out  stacking  operations  on  incoming  data.  The  top  of 
the  stack  always  points  to  the  last  element  added  to  the  stack  and  the  next 
element  to  be  removed.  Vhen  top  equals  0,  the  stack  is  empty.  Vhen  it  equals 
Stack_Size,  the  stack  is  full. 

The  following  table  shows  which  exceptions  are  raised  by  which  unit  in  this 
package: 


|  Name  of  routine  \ 

Exception 

1 

1  1 

j  raising  exception  \ 

raised  ■> 

j  Stack_Full 

j  Stack_Empty  | 

|  Add_Element 
j  Retrieve  Element 

1  x 

1 

1 

|  X 

j  Peek 

1 

1  x 

3. 6. 9. 1.9. 5.1  REQUIREMENTS  ALLOCATION 
This  part  meets  CAMP  requirement  R166. 


3. 6. 9. 1.9. 5. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 


Data  types: 
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The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part : 


|  Name 

1  Type 

Value 

|  Description  | 

|  Initial 
j  Stack  Size 

|  POSITIVE 

1 

N/A 

|  Maximum  number  of  elements  which  can 
j  be  in  the  stack  at  any  given  time  j 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 

Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 


|  Name  |  Description 


|  Stack_Empty  |  Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
j  j  retrieve  elements  from  an  empty  stack 

j  Stack_Full  j  Error  condition  raised  if  an  attempt  is  made  to  add  elements 
j  j  to  a  full  stack 


Data  types: 

One  of  the  data  types  exported  by  this  part  is  "stacks".  Since  this  is  a 
limited  private  type,  the  only  way  the  user  can  access  the  stack  is  through 
functions  and  procedures  contained  in  this  part. 

The  following  chart  summarizes  the  data  types  exported  by  this  part: 


|  Name 

1  Type 

Range 

|  Description  | 

Stack 

|  POSITIVE 

1  .. 

j  Used  to  dimension  the  list  of 

Length 

subtype 

Stack  Size 

j  elements 

Range 

1 

I 

Stacks 

j  limited 

N/A 

(  List  of  data  along  with  relevant 

j  private 

j  information 

Stack 

j  discrete 

Empty, 

j  Used  to  indicate  the  status  of 

Statuses 

1  type 

Available, 

the  stack 

1 

Full 

1 
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Data  objects: 

The  following  table  describes  the  data  objects  exported  by  this  part: 


|  Name 

1  Type 

Value 

Description  | 

|  Stack 
|  Size 

|  POSITIVE 

Initial_ 
Stack  Size 

Number  of  elements  in  the  stack  | 

1 

3. 6. 9. 1.9. 5. 3  LOCAL  ENTITIES 


None. 


3.6.9. 1.9. 5. 4  INTERRUPTS 


None. 


3.6.9. ! .9.5.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  AbstractDataStructures; 

•  a  • 

package  ADS  renames  Abstract_Data_Structures; 

a  •  • 

type  Messages  is  ... 

a  a  a 

Max_Message_Count  :  constant  :«  15; 

a  a  a 

package  Bnded  Stack  is  new  ADS.Bounded_Stack 
(Elements  •=>  Messages, 

Initial_Stack_Size  *=>  Max_Message_Count) ; 
package  Bounded_Stack  renames  Bnded_Stack; 

a  a  a 

Message_Stack  :  Bounded_Stack. Buffers; 

New_Mesiage  :  Messagei; 

Next_Message  :  Messages; 

a  a  • 

begin 

a  a  • 

Bounded_Stack.Clear_Stack(Message_Stack); 

a  a  a 

Bounded_S tack. Add_Elemen t (New_Message ,  Message_S t ack) ; 

a  •  a 

Bounded_Stack.Retrieve_Element(Message_Stack,  Next_Message) ; 
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3.6.9. 1.9. 5. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 9. 1.9. 5. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


|  Name  |  Type  |  Description 


Clear  Stack 
Add_Element 
Retrieve_ 
Element 
Peek 

Stack_Status 

Stack_Length 


procedure 

procedure 

procedure 


Returns  a  cleared  stack 

Adds  an  element  to  the  top  of  the  stack 

Removes  an  element  from  the  top  of  the  stack 


function 

function 

function 


Looks  at  first  element  on  top  of  the  stack 
without  altering  the  stack's  contents 
Returns  the  current  status  of  the  stack 
Returns  the  number  of  elements  currently  in 
the  stack 


3. 6. 9. 1.9. 5. 8  PART  DESIGN 
None. 


3.6.9. 1.9.6  UNBOUNDEDSTACK  (CATALOG  #P329-0) 

This  generic  package  performs  last-in-first-out  stacking  operations  on  incoming 
data.  The  head  of  the  stack  always  points  to  the  last  element  added  to  the 
stack  and  the  next  element  to  be  removed.  The  tail  always  points  to  a  dummy 
node  located  below  the  oldest  element  on  the  stack.  If  head  and  tail  point  to 
the  same  node,  the  stack  is  empty. 

An  available  space  list  is  maintained  local  to  this  part.  Vhen  this  part  is 
elaborated  the  available  space  list  will  have  a  dummy  node  plus  Initial  - 
Available_Space_Size  nodes.  When  nodes  are  added  to  the  buffer,  the  Ad3_- 
Element  routine  will  try  to  get  a  node  from  the  available  space  list  before 
attempting  to  allocate  more  memory.  Vhen  the  Retrieve  Element  routine  is 
called,  the  unused  node  will  be  returned  to  the  availaEle  space  list  for  later 
use.  The  memory  committed  to  the  available  space  may  be  deallocated  by  calling 
the  Free_Memory  procedure. 

The  following  table  describes  the  exceptions  raised  by  this  part: 


4 
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Name 


When/Vhy  Raised 


StorageError 


Stack  Empty 


Stack  Not  Initialized 


Raised  during  elaboration  of  this  package  or  by 
one  of  the  following  routines  if  an  attempt  is 
made  to  allocate  memory  when  no  more  is 
available: 

o  Initialized_Stack 
o  Add  Element- 

Raised  by  the  following  routines  if  an  attempt  is 
made  to  access  an  empty  stack: 
o  Peek 

o  R®trieve_Element 

Raised  by  the  following  routines  if  an  attempt  is 
made  to  lse  an  uninitialized  stack: 
o  Clear_Buffer 
c  Retrieve_Eleroent 
o  Add  Element 
o  Peelc 

o  Buf fer_Length 


3. 6. 9. 1.9. 6.1  REQUIREMENTS  ALLOCATI ON 
This  part  meets  CAMP  requirement  R167. 

3. 6. 9. 1.9. 6. 2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  summarizes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  Elements 

private 

User  defined  type  of  data  contained  in  the  stack  | 

Data  objects: 

The  following  table  summarizes  the  generic  formal  objects  required  by  this 
part: 


|  Name 

1  Type 

|  Description 

1 

|  Initial  Available 
|  Space_Size 

j  NATURAL 

1 

|  Number  of  nodes 
j  the  available 

to  be  initially  placed  in  | 
space  list  j 

EXPORTED  EXCEPTIONS/TYPES/OBJECTS : 
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Exceptions: 

The  following  table  describes  the  exceptions  exported  by  this  part: 


|  Name  |  Description 


Stack_Empty 

Stack  Not_ 
Initialized 
Storage_ 
Error 


Error  condition  raised  if  an  attempt  is  made  to  look  at  or 
retrieve  elements  from  an  empty  stack 
Raised  if  an  attempt  is  made  to  use  an  uninitialized  stack 

Raised  if  an  attempt  is  made  to  allocate  more  memory  than 
is  available 


Data  types: 

The  data  type  exported  by  this  part  is  "stacks".  Since  it  is  a  limited  private 
type,  the  only  way  the  user  can  access  the  stack  is  through  functions  and 
procedures  contained  in  this  part. 

The  following  chart  summarizes  the  data  types  exported  by  this  part: 


1 

Name 

Type 

Range 

|  Description 

1 

1 

Stacks 

limited 

N/A 

|  List  of  data  along  with  relevant 

1 

private 

j  information 

1 

1 

Stack 

discrete 

Uninitialized, 

|  Indicates  the  current  status  of 

1 

1 

Statuses 

type 

Empty, 

j  the  stack 

1 

1 

Available 

1 

1 

3.6.9. 1.9. 6. 3  LOCAL  ENTITIES 
Data  structures: 

This  part  maintains  an  available  space  list  local  to  the  package  body. 

3.6.9. 1.9. 6. 4  INTERRUPTS 
None. 

3.6.9. 1.9. 6. 5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  Abstract_Data_Structures; 

•  •  • 

package  ADS  renames  Abstract_Data_Structures; 

•  •  • 

type  Messages  is  . . . 

Initial_Space_Size  :  constant  15; 
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package  lJnbounded_Stck  is  new  ADS.Unbounded_Stack 

(Elements  =>  Messages, 

Initial_Available_Space_Size  =>  Initial_Space  Size); 

Message_Stack  :  UnboundedStck. Stacks ; 

New_Message  :  Messages; 

Next_Message  :  Messages; 

begin 
•  •  • 

Unbounded_Stck. Ini tialize(Message_S tack) ; 
Unbounded_Stck.Add_Element(New_Message,  Message_Stack) ; 
Unbounded_Stck.Retrieve_Element(Message_Stack,  Next_Message) ; 


3.6.9. 1.9. 6. 6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 


3. 6. 9. 1.9. 6. 7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 

1  Type 

Initialize 

|  function 

Clear  Stack 

j  procedure 

Free_Memory 

|  procedure 

1 

Add  Element 

j  procedure 

Retrieve 

j  procedure 

Element 

1 

Peek 

j  function 

1 

Stack  Status 

1 

|  function 

StackJLength 

j  function 

Description 


Returns  an  initialized  stack 
Clears  the  contents  of  the  stack 
Deallocates  the  memory  allocated  to  the 
available  space  list 
Adds  an  element  to  the  top  of  the  stack 
Removes  an  element  from  the  top  of  the  stack 

Looks  at  first  element  on  top  of  the  stack 
without  altering  the  stack's  contents 
Returns  the  status  of  the  stack 
Returns  the  number  of  elements  currently  in 
the  stack 


3. 6. 9. 1.9. 6. 8  PART  DESIGN 


None. 
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package  Abstract_Data_Structures  is 

pragma  PAGE; 
generic 

type  Elements  is  private; 

Ini tial_Buf fer_Size  :  in  POSITIVE; 
package  Bounded_Fifo_Buffer  is 


—  declarations 


Buffer_Full  :  exception; 

Buf fer_Empty  :  exception; 

Buffer_Size  :  constant  POSITIVE  :=  Initial_Buffer_Size; 

subtype  Buffer_Range  is  NATURAL  range  0  ..  Buffer_Size; 
type  Buffers  is  Halted  private; 

type  Buf fer_Statuses  is  (Empty,  Available,  Full;; 

— subroutine  specifications 

procedure  Clear_Buffer  (Buffer  :  out  Buffers); 

procedure  AddJSlement  (New  Element  :  in  Elements; 

Buffer  :  in  out  Buffers); 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

01d_Element  :  out  Elements); 

function  Peek  (Buffer  :  in  Buffers)  return  Elements; 

function  Buf fer_Status  (Buffer  :  in  Buffers)  return  Buffer__Statuses; 

function  Buf fer_Length  (Buffer  :  in  Buffers)  return  Buffer_Range; 

— private  section 

private 


type  Lists  is  array  (Buf fer_Range)  of  Elements; 


type  Buffers  is 
record 

Buf fer_Length 

Head 

Tail 

LIST 

end  record; 


:  INTEGER 
:  Buffer_Range 
:  Buffer_Range 
:  Lists; 


0 

0 

1 


end  Bounded  Fifo  Buffer; 


pragma  PAGE; 
generic 

type  Elements  is  private; 

Initial_Available  Space  Size  :  in  NATURAL  :>  0; 

package  Unbounded  Fifo  Buffer  is 

-  -  ^ 
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--declarations 

Buffer_Empty  :  exception; 

Buf fer_Not_Ini tialized  :  exception; 

STORAGE_ERROR  :  exception  renames  STANDARD .  STORAGE_ERROR ; 

type  Buffers  is  limited  private; 

type  Buf fer_Statuses  is  (Uninitialized,  Empty,  Available); 

—  subroutine  specifications 

procedure  Initialize_Buffer  (Buffer  :  in  out  Buffers); 
procedure  Clear_Buffer  (Buffer  :  in  out  Buffers); 
procedure  Free_Memory; 

procedure  Add_Element  (New  Element  :  in  Elements; 

Buffer  :  in  out  Buffers); 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

01d_Element  :  out  Elements); 

function  Peek  (Buffer  :  in  Buffers)  return  Elements; 

function  Buf ferStatus  (Buffer  :  in  Buffers)  return  BufferStatuses; 

function  Buffer_Length  (Buffer  :  in  Buffers)  return  NATURAL; 

— private  section 

private 

type  Nodes; 

type  Pointers  is  access  Nodes; 

type  Nodes  is 
record 

Data  :  Elements; 

Next  :  Pointers  :■  null; 
end  record; 

type  Buffers  is 
record 

Current_Length  :  INTEGER  :=  -lj 

Head  :  Pointers  :  =  null; 

Tail  :  Pointers  :  =  null; 

end  record; 

end  Unbounded_Fifo_Buffer; 

pragma  PAGE; 
generic 

type  Elements 


is  private; 
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Ini tial  Buf fer_Size  :  in  POSITIVE; 
package  Nonblocking_Circular_Buf  fer  is 

—  declarations 

BufferEmpty  :  exception; 

Buffer_Size  :  constant  POSITIVE  :=  Initial_Buffer_Size; 

subtype  Buffer_Range  is  NATURAL  range  0  ..  Buffer_Size; 
type  Buffers  is  limited  private; 

type  Buffer_Statuses  is  (Empty,  Available,  Full); 

—  subroutine  specifications 

procedure  Clear_Buffer  (Buffer  :  out  Buffers); 

procedure  Add_Element  (New  Element  :  in  Elements; 

BufTer  :  in  out  Buffers); 

procedure  Retrieve_Element  (Buffer  :  in  out  Buffers; 

01d_Element  :  out  Elements); 

function  Peek  (Buffer  :  in  Buffers)  return  Elements; 

function  Buf ferStatus  (Buffer  s  in  Buffers)  return  BufferStatuses; 

function  BufferLength  (Buffer  s  in  Buffers)  return  BufferRange; 

— private  section 

private 

type  Lists  is  array  (Buffer_Range)  of  Elements; 

type  Buffers  is 
record 

Head  :  Buffer_Range  :«=  0; 

Tail  :  Buffer_Range  :=  1; 

Current_Length  :  Buffer-Range  0; 

LIST  :  Lists; 

end  record; 

end  Nonblocking_Circular_Buffer; 


pragma  PAGE; 
generic 

type  Elements  is  private; 
type  Priorities  is  private; 

Initial_Available_Space_Size  :  in  NATURAL  :=  0; 
with  function  ">"  (Left-  :  in  Priorities; 

Right  :  in  Priorities)  return  BOOLEAN  is  <>; 
package  Unbounded_Priority_Queue  is 

—  declarations 
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Queue_Empty  :  exception; 

Queue_Not_Initialized  :  exception; 

type  Queues  is  limited  private; 

type  QueueStatuses  is  (Uninitialized,  Empty,  Available); 

—  subroutine  specifications 

procedure  Initialize  (Queue  :  in  out  Queues); 
procedure  Clear_Queue  (Queue  :  in  out  Queues); 
procedure  Free_Memory; 

procedure  Add_Element  (Nev_Element  :  in  Elements; 

Nev~Priority  t  in  Priorities; 

Queue  :  in  out  Queues); 

procedure  Retrieve_Element  (Queue  :  in  out  Queues; 

01d_Element  :  out  Elements); 

function  Peek  (Queue  :  in  Queues)  return  Elements; 

function  QueueStatus  (Queue  :  in  Queues)  return  QueueStatuses; 

function  QueueLength  (Queue  :  in  Queues)  return  NATURAL; 

—  private  section 
private 

type  Nodes; 

type  Pointers  is  access  Nodes; 

type  Nodes  is 
record 

PRIORITY  s  Priorities; 

Data  :  Elements; 

Next  :  Pointers  :«  null; 

end  record; 

type  Queues  is 
record 

CurrentLength  :  INTEGER  s-  -1; 

Head  ~  :  Pointers  :«  null; 

Tail  :  Pointers  :»  null; 

end  record; 

end  Unbounded_Priority_Queue; 

pragma  PAGE; 
generic 

type  Elements  is  private; 

Initial_Stack_Size  :  in  POSITIVE; 
package  Bounded_Stack  is 
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—  declarations 

StackFull  :  exception; 

StackEmpty  :  exception; 

StackSize  :  constant  POSITIVE  :=  Initial_Stack_Size; 

subtype  Stack_Length_Range  is  NATURAL  range  0  ..  Stack_Size; 
type  Stacks  is  limited  private; 

type  Stack_Statuses  is  (Empty,  Available.  Full); 

—  subroutine  specifications 

procedure  ClearStack  (Stack  s  out  Stacks); 

procedure  Add_Element  (Nev_Element  :  in  Elements; 

Stack  :  in  out  Stacks); 

procedure  Retrieve_Element  (Stack  :  in  out  Stacks; 

01d_Element  :  out  Elements); 

function  Peek  (Stack  :  in  Stacks)  return  Elements; 

function  StackStatus  (Stack  :  in  Stacks)  return  StackStatuses; 

function  Stack_Length  (Stack  :  in  Stacks)  return  Stack_Length_Range; 

— private  section 

private 

subtype  StackDimensions  is  Stack_Length_Range 

range  1  ..  Stack_Length_Range'LAST; 

type  Lists  is  array  (Stack_Dimensions)  of  Elements; 

type  Stacks  is 
record 

Top  ;  Stack_Length_Range  0; 

LIST  :  Lists! 

end  record; 

end  bounded_Stack; 

pragma  PAGE; 
generic 

type  Elements  is  private; 

Initial_Available_Space_Size  :  in  NATURAL  :=  0; 
package  Unbounded_Stack  is 

—  declarations 

Stack_Empty  :  exception; 

Stack_Not_Initialized  :  exception; 

STORAGE  ERROR  :  exception  renames  STANDARD .  ST0RAGE_ERR0R ; 
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type  Stacks  is  limited  private; 

type  Stack_Statuses  is  (Uninitialized,  E'npty,  Available); 

—  subroutine  specifications 

procedure  Initialize  (Stack  :  in  out  Stacks); 
procedure  Clear_Stack  (Stack  :  in  out  Stacks); 
procedure  Free_Memory; 

procedure  Add_Element  (Nev_Element  :  in  Elements; 

Stack  :  in  out  Stacks); 

procedure  Retrieve_Element  (Stack  :  in  out  Stacks; 

01d_Element  :  out  Elements); 

function  Peek  (Stack  :  in  Stacks)  return  Elements; 

function  Stack_Status  (Stack  :  in  Stacks)  return  Stack_Statuses; 

function  Stack_Length  (Stack  :  in  Stacks)  return  NATURAL; 

— private  section 

private 

type  Nodes; 

type  Pointers  is  access  Nodes; 

type  Nodes  is 
record 

Data  :  Elements; 

Next  :  Pointers  null; 
end  record; 

type  Stacks  is 
record 

Current_Length  :  INTEGER  :■  -1; 

Top  :  Pointers  :■  null; 

Bottom  :  Pointers  null; 

end  record; 

end  Unbounded_Stack; 

end  Abstract  Data  Structures; 


< 
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3.6.10  GENERAL  UTILITIES 
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GENERALJJTILITIES  TLCSC  P361  (CATALOG  P265-0) 


This  package  provides  a  group  of  general  utility  routines  used  in  a  missile 
system. 


3.6.10.1.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  requirements  to  this  part: 


|  Name 

Requirements  Allocation  | 

|  Instruction  Set_Test 

R141  | 

3.6.10.1.2  INPUT/OUTPUT 
None. 

3.6.10.1.3  UTILIZATION  OF  OTHER  ELEMENTS 
None . 

(f  3.6.10.1.4  LOCAL  ENTITIES 
None. 

3.6.10.1.5  INTERRUPTS 
None. 

3.6.10.1.6  TIMING  AND  SEQUENCING 
None. 

3.6.10.1.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 

3.6.10.1.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


!  Name 

1  Type  | 

|  Description  | 

|  Instruction  Set  Test 

1  '  ' 

|  generic 
j  function  j 

checks  for  proper  processor  operation  | 

1 
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'1 

3.6.10.1.9  PART  DESIGN 

3.6.10.1.9.1  INSTRUCTION_SET_TEST  (CATALOG  P266-0) 

This  part  is  a  generic  function  which  checks  for  proper  processor  operation  by 
executing  a  function  and  comparing  the  result  to  the  expected  result.  If  the 
expected  and  derived  values  match,  "True"  is  returned.  The  part's  generic 
parameter  may  be  any  type,  but  a  Test  function  must  be  supplied  which  matches 
the  parameter  defined  in  the  specification. 


3.6.10.1.9.1.1  REQUIREMENTS  ALLOCATION 
This  part  meets  requirement  R141. 


3.6.10.1.9.1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS: 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

Description  | 

|  ReturnValues 

private 

may  be  any  type.  | 

Subprograms : 

The  following  table  describes  the  generic  formal  subroutines  required  by  this 
part: 


|  Name 

1  Type 

|  Description  | 

|  Test 

1 

|  function 
!  1 

|  the  function  to  be  tested,  it  must  return  a  value  of  | 

|  Return_Values  type.  j 

FORMAL  PARAMETERS: 

The  following  table  describes  this  part's  formal  parameters: 


|  Name 

1  Type  I 

|  Mode 

|  Description  | 

|  Correct  Answer 

1 

|  Return  Values  | 
1  "  1 

1  in 

|  The  correct  return  value  for  the  | 

|  function.  j 

< 
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3.6.10.1.9.1.3  INTERRUPTS 
None . 


3.6.10.1.9.1.4  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

with  General_Utilties; 
procedure  Sample: 

Expected_Result  :  Float; 

Test_Result  :  BOOLEAN; 

function  My_Test  return  Float  is 
begin 

return  1.0; 
end  My_Test; 

Test_It  is  new  General_Utilities.Instruction_Set_Test 

(  Return~Values  -> 
Test  •> 


begin 

Expected_Result  :«  1.0; 

Test_Result  :■  Test_It(  Expected_Result  ); 
end  Sample; 


3.6.10.1.9.1.5  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  Unit. 


3.6.10.1.9.1.6  DECOMPOSITION 


Float, 
MyTest  ); 


None. 
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package  General_Utilities  is 
generic 

type  ReturnValues  is  private; 
with  function  Test  return  Return_Values  is  <>; 
function  Instruction  Set_Test  (Correct_Ansver  :  Return_Values) 

return  BOOLEAN; 


end  General  Utilities; 
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3.6.10.2  COMMUNICATION_PARTS  TLCSC  P602  (CATALOG  #P639-0) 

This  package  provides  a  group  of  communication  routines  used  in  a  missile 
system. 

3.6.10.2.1  REQUIREMENTS  ALLOCATION 

The  following  chart  summarizes  the  allocation  of  requirements  to  this  part: 


|  Name 

|  Requirements  Allocation  | 

|  Update  Exclusion 

|  R137  1 

3.6.10.2.2  INPUT/OUTPUT 
None. 

3.6.10.2.3  UTILIZATION  OF  OTHER  ELEMENTS 
None. 

3.6.10.2.4  LOCAL  ENTITIES 


None. 

3.6.10.2.5  INTERRUPTS 
None. 


3.6.10.2.6  TIMING  AND  SEQUENCING 
None. 

3.6.10.2.7  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  TLCSC. 


3.6.10.2.8  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 
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|  Name 

Type 

|  Description  ! 

|  Update  Exclusion 

generic 

package 

|  provides  a  mechanism  for  insuring  that  data  | 
j  accessed  by  more  than  one  asynchronous  task  | 

|  (with  priorities  supported)  is  properly  i 

|  protected  for  such  accesses.  ! 

3.6.10.2.9  PART  DESIGN 

3.6.10.2.9.1  UPDATE_EXCLUSION  (CATALOG  #P690-0) 

This  part  is  a  generic  package  containing  a  task  providing  a  mechanism  for 
insuring  that  data  accessed  by  more  than  one  asynchronous  task  is  properly 
protected  for  such  accesses.  The  part's  generic  parameter  can  be  any  type. 


3.6.10.2.9.1.1  REQUIREMENTS  ALLOCATION 

The  following  table  summarizes  the  allocation  of  requirements  to  this  part: 


|  Name 

|  Requirements  Allocation  | 

|  Update_Exclusion  | 

|  R137  | 

3.6.10.2.9.1.2  INPUT/OUTPUT 
GENERIC  PARAMETERS! 

Data  types: 

The  following  table  describes  the  generic  formal  types  required  by  this  part: 


|  Name 

Type 

|  Description 

1 

|  Element_Type 

private 

|  Allows  any  type  to  be  protected 

1 

Data  objects: 

The  following  table  describes  the  generic  formal  objects  required  by  this  part: 


|  Name 

1  Type 

|  Description  | 

|  Initial  Value 

1 

1 

|  Element  Type 

1 

1  1 

Allows  the  data  type  to  be  initialized  so  | 
that  the  first  time  Start_Update_Request  is  | 
called  a  constraint  error  is  not  raised  by  j 
some  uninitialized  value.  j 
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3.6.10.2.9.1.3  LOCAL  ENTITIES 


None. 


3.6.10.2.9.1.4  INTERRUPTS 
None. 


3.6.10.2.9.1.5  TIMING  AND  SEQUENCING 

The  following  shows  a  sample  usage  of  this  part: 

With  CommunicationParts; 

With  STANDARD; 

procedure  Sample  is 

type  State  is  (  Startup,  Running,  Locked,  Waiting  ); 

Begin_State  :  State  :«  Startup; 

Current_State  :  State; 

Updated_State  :  State; 

package  Change_State  is  new  Conununication_Parts.Update_Exclusion 

(  Element_Type  ■>  State, 
InitialValue  *>  BeginState  ); 
Result  :  Change_State.Rendezvous_Flags; 

My_Id  :  Change_State.Rendezvous_Ids; 

TimeNow  :  STANDARD. DURATION; 

begin 

ChangeState.AttemptStart  Update(  Current_State, 

My_Id,  ~ 

Result  ); 

—  Value  of  CurrentState  is  'Startup' 

—  The  object  is  locked  and  cannot  be  read  or  written  here 
—  Note  that  attempted  Rendezvous  will  not  be  acknowledged 
—  if  made  here. 

Current_State  Running; 

Change  State. Attempt_Complete_Update(  Current_State, 

My_Id , 

Result  ); 

—  Value  of  Current_State  is  'Running' 

—  The  object  is  available  for  reads  or  updates  here 
Change_State.Attempt_Read(  Updated  State,  ); 

—  Value  of  Updated_State  is  'Running' 
end  Sample; 


3.6.10.2.9.1.6  GLOBAL  PROCESSING 

There  is  no  global  processing  performed  by  this  LLCSC. 
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3.6.10.2.9.1.7  DECOMPOSITION 

The  following  table  describes  the  decomposition  of  this  part: 


Name 

1  Type 

Attempt  Read 

|  procedure 

Attempt  Read  Wait 

|  procedure 

Attempt  Read  Delay 

j  procedure 

Attempt  Start 

1  procedure 

Update 

Attempt  Start 

|  procedure 

Update  Wait 

Attempt  Start 

j  procedure 

Update  Delay 

Attempt  Complete 

j  procedure 

Update 

Description 


If 


If 


Attempts  to  read  the  protected  data. 

unable,  does  not  wait. 

Attempts  to  read  the  protected  data. 

unable,  waits  indefinitely  until  it  can 
Attempts  to  read  the  protected  data,  If 
unable,  waits  the  specified  time 
Attempts  to  start  an  update.  If  unable, 
does  not  wait. 

Attempts  to  start  an  update.  If  unable, 
waits  indefinitely  until  it  can. 
Attempts  to  start  an  update.  If  unable, 
delays  the  specified  amount. 

Attempts  to  complete  an  update 
does  not  wait. 


If  unable 


3.6.10.2.9.1.8  PART  DESIGN 


None. 
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package  Communication_Parts  is 
generic 

type  Element_Type  is  private; 

Initial_Value  :  in  Element_Type; 
package  Update_Exclusion  is 

type  Rendezvous_Flags  is  (  Success,  Failure,  Bad_Id  ); 
type  Rendezvous_Ids  is  range  0..1000; 

Id  :  Rendezvous_Ids  :=  1; 

procedure  Attempt_Read(  RequestedData  :  in  out  ElementType; 

Result  :  out  Rendezvous_Flags  ); 

procedure  Attempt_Read_Vait(  Requested_Data  :  in  out  Element_Type; 

Result  :  out  Rendezvous_Flags  ); 

procedure  Attempt_Read_Delay(  Requested_Data  s  in  out  Element_Type; 

Result  :  out  Rendezvous_Flags ; 

Delay_Time  :  in  DURATION  ); 

procedure  Attempt_Start_Update(  Old_Data  :  in  out  Element_Type; 

Nev_Id  :  out  Rendezvous_lds ; 

Result  s  out  RendezvousFlags  ); 

procedure  Attempt_Start_Update_Wait(  Old  Data  :  in  out  Element  Type; 

Nev_Id  *  out  Rendezvous_Ids ; 

Result  :  out  RendezvousFlags) ; 

procedure  Attempt_Start_Update_Delay(  Old_Data  t  in  out  Element_Type; 

Nev_Id  :  out  Rendezvous_Ids ; 
Result  :  out  Rendezvous_Flags ; 
Time  :  in  DURATION  )7 

procedure  Attempt_Complete_Update(  Nev_Data  :  in  Element_Type; 

Passed_Id  :  in  Rendezvous_Ids;  ' 
Result  :  out  Rendezvous_Flags  ); 


end  Update_Exclusion; 
end  Communication  Parts; 
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NOT  USED 


CAMP  Software  Top  Level  Design  Document 


(This  page  intentionally  left  blank.) 


CAMP  Software  Top  Level  Design  Document 


Page  839 


5  NOT  USED 
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6  NOTES 

This  paragraph  does  not  apply  to  this  TLDD. 
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APPENDIX  I 


MODIFICATIONS  TO  DI-MCCR-80012 


10.1  REQUIREMENTS  FOR  DOCUMENTING  DESIGN  OF  REUSABLE  PARTS 

10.1.1  PROBLEMS  IN  USING  DI-MCCR-80012 

The  documentation  of  the  top-level  design  for  the  CAMP  parts  must  describe  the 
architecture  of  part  packages  and  detail  the  interfaces  between  packages.  This 
will  require  TLCSCs  which  address  the  following  issues: 

o  The  package  context  (the  list  of  external  packages  which  are  needed) 
o  The  decomposition  of  the  TLCSC  in  to  LLCSCs 
o  Ada  design  of  the  specification  of  the  TLCSC  and  its  LLCSCs 
o  Major  entities  which  are  local  to  the  package  body 
o  Externally  callable  entries  (vhere  tasking  is  used) 
o  Requirements  for  instantiation  and-other  use  of  a  part 
o  Global  processing  and  output 

These  requirements  must  be  met  both  in  the  TLDD  and  in  the  header  of  the 
design  code  itself. 

The  Data  Item  Descriptor  for  the  Software  Top-Level  Design  Document 
(DI-MCCR-80012)  does  not  adequately  cover  these  issues.  The  DID  seems  to  be 
directed  towards  a  design  which  features  data  passing  through  shared  data, 
rather  than  parameter  passing,  and  parameterless  subroutines  employed  for 
structural  reasons,  rather  than  functional  or  object-oriented  decomposition. 
This  architecture  for  a  TLCSC  is  not  compatible  with  the  object-oriented  nature 
of  an  Ada  package  specification.  Therefore,  the  TLDD  is  not  sufficient  for  our 
documentation  needs. 

Much  of  the  information  that  properly  belongs  to  a  TLCSC  designed  using 
Ada  has  been  placed  in  the  Software  Detailed  Design  Document  (e.g.,  the  TLCSC 
decomposition,  and  LLCSC  interfacing).  The  CAMP  project  has  determined  that 
this  information  must  appear  in  the  top-level  design  description.  This  will 
require  that  the  DID  for  top-level  design  be  modified  to  include  architectural 
information  highlighting  the  structure  of  the  TLCSC  down  to  the  unit  level, 
vhere  units  are  externally  callable.  It  should  also  include  structural 
information  which  is  required  for  the  detailed  design  of  these  external 
interfaces.  In  Ada  terms,  the  TLDD  will  document  the  Ada  specification  plus 
major  data  structures  and  processing  needs  of  the  package  body. 

The  Detailed  Design  Document  will  describe  the  implementation  of  all  of 
the  top-level  design  requirements,  for  both  the  bundled  version  of  parts  and 
the  unbundled  version.  The  DDD  must  contain  the  full  package  body  for  all 
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TLCSCs  plus  those  source  code  segments  which  are  used  to  build  the  Ada  design 
code.  The  DDD  will  include  the  design  code  for  individual  parts,  the  CAMP 
library  structure  and  the  CAMP  source  text  structure. 


10.1.2  DESIGN  CODE  HEADER  INFORMATION  FOR  TOP-LEVEL  DESIGN 

— TLCSC  Name 

—  The  name  shall  be  descriptive  of  the  processing  performed  by  the  TLCSC. 

— TLCSC  Identification  Number 

—  The  design  identification  number  used  to  identify  the  TLCSC  for 

—  configuration  management. 

— Detailed  overview  of  TLCSC  purpose 

—  For  generic  units,  this  section  shall  also  provide  detaiies  of  the 

—  capabilities  provided  by  generic  parameters  (analogous  to  states  of 

—  operation) 

— Requirements  trace 

—  Document  SRS  requirements  met  by  the  TLCSC. 

—  May  reference  a  block  diagram  to  illustrate  source  of  inputs  and 

—  destination  of  outputs  of  TLCSC.  Diagram  should  allow  allocation  of 

—  CSCI  requirements. 

— Context  of  TLCSC 

—  Describe  context  of  TLCSC  (packages  which  are  vith'd,  or  are  otherwise 

—  visible  and  are  referenced  in  the  TLCSC).  Describe  what  services  of 

—  these  packages  (data  types,  objects,  functions)  are  used.  This  will 

—  describe  global  data  used  by  the  TLCSC. 

— Exported  Entities 

—  Describe  data  objects,  data  types,  subprograms,  and  packages  defined  by 

—  the  TLCSC.  Summarize  in  tabular  form  to  show  services  exported  by  the 

—  TLCSC.  Also,  describe  in  detail  all  exported  entities: 

—  Data  objec.s  ' 

Describe  data  objects  exported  by  the  TLCSC.  This  shall  include: 
o  Name  of  object 
o  Type  of  data 
o  Value,  if  a  constant 
o  Brief  description  of  data 

—  Data  types 

Describe  data  types  exported  by  the  TLCSC.  This  shall  include: 
o  Name  of  type 
o  Range  of  type 
o  Predefined  operators 
o  Special  operators 
o  Brief  description  of  type 

—  Subprograms 

Describe  the  deomposition  of  the  TLCSC  into  processing  entities  which 
shall  become  lower  level  CSCs  and  units.  For  each  LLCSC  or  unit 
defined  by  the  decomposition,  provide  the  following  information: 
o  Name 
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o  Abstract  describing  purpose  of  subprogram.  For  generic  subprograms 
this  shall  include  detoiles  of  the  capabilities  provided  by 
generic  parameters 
o  Requirements  trace 

o  Input  data  (parameters  or  global  data) 
o  Processing  algorithms 

o  Error  conditions  not  handled  immediately  by  the  entity 
o  Outputs  (parameters  or  global  data) 

Packages 

Describe  the  decomposition  of  the  TLCSC  into  packages  which  shall 
become  lower  level  CSCs  and  units.  For  each  package  defined  by  this 
decomposition,  provide  the  following  information: 
o  Name 

o  Abstract  describing  purpose  of  package.  For  generic  packages,  this 
shall  include  detailes  of  the  capabilities  provided  by  generic 
parameters, 
o  Requirements  trace 
o  Entities  exported 


— Local  Entities 

—  Describe  the  following  entities  which  will  be  local  to  the  TLCSC: 
o  Local  data  structures,  encapsulated  in  the  package  body 
o  Files  or  data  bases  used  by  the  TLCSC  and  not  by  any  other  TLCSC 
o  Data  types  defined  local  to  the  TLCSC  and  not  used  by  any  other 
TLCSC 

o  Generic  subprograms  or  packages  defined  local  to  the  TLCSC  and  used 
by  entities  exported  by  the  TLCSC 


—  Provide  information  describing  the  use  of  these  local  entities  by  other 
~  entities  within  the  TLCSC 


— Additional  "coding"  information 

—  o  Security  level  —  None 

Confidential 

Secret 


—  o  Calling  sequence 

—  o  History  —  Prepared  by 

Baseline  date 

—  o  Revision  history  —  Revised  by 

Revision  date 
Revision  reason 
Brief  description 
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